A227409 Prime numbers representing a date in "condensed American notation" MMDDYY.
10103, 10111, 10133, 10139, 10141, 10151, 10159, 10163, 10169, 10177, 10181, 10193, 10211, 10223, 10243, 10247, 10253, 10259, 10267, 10271, 10273, 10289, 10301, 10303, 10313, 10321, 10331, 10333, 10337, 10343, 10357, 10369, 10391, 10399, 10427, 10429, 10433
Offset: 1
Examples
a(1)=10103 is prime and represents a date in MMDDYY format as 010103.
Links
- Shyam Sunder Gupta, Table of n, a(n) for n = 1..3379
Programs
-
Mathematica
t = {}; Do[If[m < 8, If[OddQ[m], b = 31, If[m == 2, b = 28, b = 30]],If[OddQ[m], b = 30, b = 31]]; Do[a = 100 d + y + 10000 m;If[PrimeQ[a], AppendTo[t, a]], {d, 1, b}], {m, 1, 12}, {y, 1, 99}]; Union[t]
Comments