A029976 Palindromic primes in base 8.

2, 3, 5, 7, 73, 89, 97, 113, 211, 227, 251, 349, 373, 463, 479, 487, 503, 4289, 4481, 4937, 5393, 5521, 5657, 5849, 6761, 7537, 7993, 12547, 12611, 12739, 13003, 13259, 13331, 13523, 14107, 14563, 14627, 14891, 15083, 15667, 15731, 15859

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..15000
• Patrick De Geest, World!Of Palindromic Primes

Crossrefs

Cf. A006341.

Programs

Mathematica

palQ[n_, b_:10] := Module[{idn = IntegerDigits[n, b]}, idn == Reverse[idn]]; Select[Prime[Range[2000]], palQ[#, 8] &] (* Harvey P. Dale, Dec 23 2013 *)

PARI

forprime(p=2,10^4, my(d=digits(p,8)); if(d==Vecrev(d),print1(p,", "))); \\ Joerg Arndt, Aug 17 2014

Python

from itertools import chain
from sympy import isprime
from gmpy2 import digits
A029976 = sorted((n for n in chain((int(digits(x,8)+digits(x,8)[::-1],8) for x in range(1,8**6)),(int(digits(x,8)+digits(x,8)[-2::-1],8) for x in range(1,8**6))) if isprime(n)))
# Chai Wah Wu, Aug 16 2014