A029978 Primes that are palindromic in base 11.

2, 3, 5, 7, 199, 277, 421, 443, 499, 521, 587, 643, 709, 743, 787, 809, 887, 953, 1009, 1031, 1109, 1153, 1231, 1297, 1319, 15731, 16831, 19031, 19273, 20857, 22441, 23057, 25741, 27809, 28183, 28909, 31231, 32089, 32573, 34157, 35257

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• John Cerkan, Table of n, a(n) for n = 1..10000
• P. De Geest, World!Of Palindromic Primes

Programs

Mathematica

f[n_]:=FromDigits[RealDigits[n,11][[1]]]==FromDigits[Reverse[RealDigits[n,11][[1]]]]; lst={}; Do[p=Prime[n]; If[f[p],AppendTo[lst,p]],{n,8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 10 2009 *)
Select[Prime@ Range@ 4000, PalindromeQ@ IntegerDigits[#, 11] &] (* Michael De Vlieger, May 16 2017, Version 10.3 *)

PARI

isok(n) = if (isprime(n), my(d=digits(n, 11)); d == Vecrev(d)); \\ Michel Marcus, May 15 2017