OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
d[n_]:=IntegerDigits[n]; Table[i=1; While[!PrimeQ[x=FromDigits[Flatten[{d[n], d[i]}]]], i=i+2]; x, {n, Select[Prime[Range[2000]], Reverse[x=d[#]]==x &]}] (* Jayanta Basu, May 24 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(15) and a(34) corrected by Chai Wah Wu, May 24 2016
STATUS
approved