Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #27 Dec 07 2015 01:03:17
%S 10301,10501,10601,11311,11411,12421,12721,12821,30103,30203,30403,
%T 30703,30803,31013,31513,32323,32423,70207,70507,70607,71317,71917,
%U 72227,72727,73037,90709,91019
%N Palindromic prime numbers representing a date in "condensed American notation" MMDDYY.
%C For February, the number of days will be 28 only, as the year cannot be a leap year if MMDDYY is to be a prime number.
%C The sequence is finite, with 27 terms. The largest term is a(27)=91019.
%e a(1)=10301 is palindromic prime and represents a date in MMDDYY format as 010301.
%t 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 d + y + 10000 m; If[PrimeQ[a] && palindromicQ[a], AppendTo[t, a]], {d, 1, b}], {m, 1,
%t 12}, {y, 1, 99}]; Union[t]
%Y Cf. A213184, A227409, A227411.
%K nonn,base,fini,full,less
%O 1,1
%A _Shyam Sunder Gupta_, Sep 22 2013