OFFSET
1,1
MATHEMATICA
With[{pr=Select[Prime[Range[150]], IntegerDigits[#]==Reverse[ IntegerDigits[ #]]&]}, Table[ FromDigits[ Flatten[IntegerDigits/@Take[pr, n]]], {n, Length[ pr]}]] (* Harvey P. Dale, Mar 05 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Felice Russo, corrected Sep 13 2000
EXTENSIONS
More terms from Harvey P. Dale, Mar 05 2014
STATUS
approved