login
A229880
Palindromic prime numbers == 7 (mod 9).
1
7, 151, 313, 727, 10501, 11311, 13831, 15451, 17971, 30103, 35053, 37573, 70207, 71917, 72727, 78487, 90709, 93139, 94849, 96469, 1062601, 1160611, 1177711, 1193911, 1201021, 1218121, 1242421, 1250521, 1422241, 1447441, 1463641, 1496941, 1520251, 1594951
OFFSET
1,1
LINKS
MATHEMATICA
t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 7, AppendTo[t, z]], {n, 1, 99999}]; t
Select[Prime[Range[130000]], PalindromeQ[#]&&Mod[#, 9]==7&] (* Harvey P. Dale, Jan 18 2026 *)
CROSSREFS
Sequence in context: A308581 A305467 A229806 * A070248 A329010 A309855
KEYWORD
nonn,base,less
AUTHOR
Shyam Sunder Gupta, Oct 02 2013
STATUS
approved