login
A229877
Palindromic prime numbers == 1 (mod 9).
1
181, 757, 919, 12421, 16561, 18181, 19891, 30403, 34543, 35353, 70507, 71317, 77977, 78787, 95959, 96769, 97579, 98389, 1008001, 1065601, 1114111, 1163611, 1196911, 1212121, 1245421, 1253521, 1278721, 1286821, 1327231, 1335331, 1343431, 1409041, 1490941
OFFSET
1,1
LINKS
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
Sequence in context: A253821 A154628 A142731 * A067383 A107255 A163442
KEYWORD
nonn,base,less
AUTHOR
Shyam Sunder Gupta, Oct 02 2013
STATUS
approved