ปีนี้ (พ.ศ. 2553 หรือ ค.ศ. 2010) เป็นปีพิเศษเพราะว่าเป็นปีที่อายุของผม ของภรรยา และของลูกทั้งสาม เป็น
จำนวนเฉพาะหมดเลย และเราจะไม่มีโอกาสอย่างนี้อีกแม้ว่าเราจะมีชีวิตเป็นล้านปี :-)
ปล. อายุผมมากกว่าภรรยา 4 ปี ผมและภรรยามีลูกชายหนึ่งคนและลูกสาวสองคน (ไม่มีลูกแฝดเลย) อายุลูกแต่ละคนห่างกัน 2 ปี ลูกคนโตเกิดในปีที่ภรรยามีอายุ 30 ปี
ผมใช้การคำนวณแบบนี้ใน Mathematica เพิื่อดูว่าจะมีปีอย่างนี้อีกไหมในอีกประมาณสองล้านปี ที่อายุของทุกคนเป็นจำนวนเฉพาะ:
Select[Table[{k - 34, k - 32, k - 30, k, k + 4,
PrimeQ[k - 34] && PrimeQ[k - 32] && PrimeQ[k - 30] && PrimeQ[k] &&
PrimeQ[k + 4]}, {k, 0, 2000000
}], #[[6]] &]
คำตอบมีเพียง อายุ 3, 5, 7, 37, 41 เท่านั้น
เนื่องจากพวกเราคงมีอายุไม่เกินล้านปี ปีนี้จะเป็นปีเดียวที่พวกเราจะมีอายุเป็นจำนวนเฉพาะทุกคน :-)
ป.ป.ล. สิ่งที่ยากคือการที่จะหาจำนวนเฉพาะสามตัวเรียงกันอย่าง 3, 5, 7
ป.ป.ป.ล. 3, 5, 7 เป็นเลขชุด k, k+2, k+4 ชุดเดียวเท่านั้นที่ทุกตัวเป็นจำนวนเฉพาะ พิสูจน์ใน comment ครับ
