OFFSET
0,1
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; Transpose[ Select[ Partition[Select[Prime[Range[500000]], palQ], 2, 1], PrimeQ[ FromDigits[ Flatten[IntegerDigits/@#]]]&]][[2]] (* Harvey P. Dale, Dec 25 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved