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,1

Links

John Cerkan, Table of n, a(n) for n = 1..10000

P. De Geest, World!Of Palindromic Primes

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 *)

Prog

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

Crossrefs

Sequence in context: A083184 A046478 A046475 * A360986 A122764 A256886

Adjacent sequences: A029975 A029976 A029977 * A029979 A029980 A029981

Keyword

nonn,base

Author

Patrick De Geest

Status

approved