OFFSET
1,1
COMMENTS
a(1) = 2; a(n+1) is the smallest palindromic prime with product of digits >= product of digits of a(n).
LINKS
Shyam Sunder Gupta, Table of n, a(n) for n = 1..149
MATHEMATICA
a = {}; t = 0; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z], s = Apply[Times, IntegerDigits[z]]; If[s >= t, t = s; AppendTo[a, z]]], {n, 10^4}]; a
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Oct 06 2013
STATUS
approved