login
A029978
Primes that are palindromic in base 11.
5
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
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
KEYWORD
nonn,base
STATUS
approved