OFFSET
0,2
EXAMPLE
189211 is in the sequence since the 189211st prime is 2590087 and 78009522590087 is divisible by 189211
MATHEMATICA
i=IntegerDigits; c[x_] := FromDigits[Flatten[{Reverse[i[x]], i[x]}]]; Do[If[Mod[c[Prime[n]], n]==0, Print[n]], {n, 10^6}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jun 18 2003
STATUS
approved