cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A227410 Palindromic prime numbers representing a date in "condensed American notation" MMDDYY.

This page as a plain text file.
%I A227410 #27 Dec 07 2015 01:03:17
%S A227410 10301,10501,10601,11311,11411,12421,12721,12821,30103,30203,30403,
%T A227410 30703,30803,31013,31513,32323,32423,70207,70507,70607,71317,71917,
%U A227410 72227,72727,73037,90709,91019
%N A227410 Palindromic prime numbers representing a date in "condensed American notation" MMDDYY.
%C A227410 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 A227410 The sequence is finite, with 27 terms. The largest term is a(27)=91019.
%e A227410 a(1)=10301 is palindromic prime and represents a date in MMDDYY format as 010301.
%t A227410 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 A227410    12}, {y, 1, 99}]; Union[t]
%Y A227410 Cf. A213184, A227409, A227411.
%K A227410 nonn,base,fini,full,less
%O A227410 1,1
%A A227410 _Shyam Sunder Gupta_, Sep 22 2013