A229876 Palindromic prime numbers == 2 (mod 9).

2, 11, 101, 191, 353, 929, 13331, 16661, 17471, 19991, 36263, 38783, 70607, 72227, 73037, 74747, 75557, 76367, 78887, 79697, 91019, 94349, 1074701, 1082801, 1123211, 1180811, 1221221, 1262621, 1287821, 1303031, 1311131, 1328231, 1360631, 1508051, 1532351

Offset

1,1

Links

Shyam Sunder Gupta, Table of n, a(n) for n = 1..994

Mathematica

t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 2, AppendTo[t, z]], {n, 1, 99999}]; Insert[t, 11, 2]
Select[Prime[Range[120000]], PalindromeQ[#]&&Mod[#, 9]==2&] (* Harvey P. Dale, Jun 02 2024 *)

Crossrefs

Cf. A002385, A229875.

Sequence in context: A072382 A038136 A048662 * A090726 A036953 A368879

Adjacent sequences: A229873 A229874 A229875 * A229877 A229878 A229879

Keyword

nonn,base,less

Author

Shyam Sunder Gupta, Oct 02 2013

Status

approved