OFFSET
1,1
LINKS
Shyam Sunder Gupta, Table of n, a(n) for n = 1..1005
MATHEMATICA
t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 1, AppendTo[t, z]], {n, 1, 99999}]; t
Select[Prime[Range[115000]], PalindromeQ[#]&&Mod[#, 9]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 15 2021 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Shyam Sunder Gupta, Oct 02 2013
STATUS
approved