OFFSET
1,1
EXAMPLE
575 is in the sequence because (1) it is a palindrome and (2)the multiplicative digital root is 5, which is a prime.
MATHEMATICA
d[n_] := IntegerDigits[n]; Select[Range[39200], Reverse[y = d[#1]] == y && PrimeQ[NestWhile[Times @@ d[#] &, #1, # > 9 &]] &] (* Jayanta Basu, Jul 13 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 16 2006
STATUS
approved