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

Links

Chai Wah Wu, Table of n, a(n) for n = 1..15000

Patrick De Geest, World!Of Palindromic Primes

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

Prog

(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
(PARI) forprime(p=2, 10^4, my(d=digits(p, 8)); if(d==Vecrev(d), print1(p, ", "))); \\ Joerg Arndt, Aug 17 2014

Crossrefs

Cf. A006341.

Sequence in context: A241723 A090717 A090715 * A074310 A264576 A356981

Adjacent sequences: A029973 A029974 A029975 * A029977 A029978 A029979

Keyword

nonn,base

Author

Patrick De Geest

Status

approved