OFFSET
1,1
REFERENCES
Pickover, Clifford A., A Passion for Mathematics: Numbers, Puzzles, Madness, Religion and the Quest for Reality, John Wiley & Sons, Inc., Hoboken, New Jersey (2005) p. 108.
LINKS
C. K. Caldwell, Palindromic Primes
MATHEMATICA
cc=If[EvenQ[First[#]], Reverse[#], #]&/@Tuples[{Range[0, 9], Range[1, 9, 2]}]; nxt[n_]:=First[Select[Sort[FromDigits[Flatten[Join[{#, IntegerDigits[ n], Reverse[#]}]]]&/@cc], PrimeQ]]; NestList[nxt, 2, 10] (* Harvey P. Dale, Dec 24 2012 *)
CROSSREFS
KEYWORD
base,fini,full,nice,nonn
AUTHOR
G. L. Honaker, Jr., Jan 26 2000
STATUS
approved