A227411 Palindromic prime numbers representing a date in "condensed European notation" DDMMYY.
10301, 10501, 10601, 30103, 30203, 30403, 30703, 30803, 31013, 70207, 70507, 70607, 90709, 91019
Offset: 1
Examples
a(1)=10103 is prime and represents a date in DDMMYY format as 010103.
Programs
-
Mathematica
palindromicQ[n_] := TrueQ[IntegerDigits[n] == Reverse[IntegerDigits[n]]]; 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 m + y + 10000 d; If[PrimeQ[a] && palindromicQ[a], AppendTo[t, a]], {d, 1, b}], {m, 1, 12}, {y, 1, 99}]; Union[t]
Extensions
Incorrect a(15)-a(32) from Vincenzo Librandi, Sep 23 2013 removed. - Jon Perry, Sep 24 2013
Comments