A056146 Palindromic primes in bases 4 and 8.

2, 3, 5, 373, 4289, 6761, 14891, 15083, 1311749, 1313797, 1444901, 1530229, 1531253, 17480321, 17563841, 17730241, 17734337, 27263017, 27533417, 27957929, 28053737, 50339843, 50506243, 50856067, 51122371, 61254251

Offset

1,1

Links

Table of n, a(n) for n=1..26.

Mathematica

Do[ If[PrimeQ[n], t = RealDigits[n, 8][[1]]; If[FromDigits[t] == FromDigits[Reverse[t]], s = RealDigits[n, 4][[1]]; If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]]], {n, 1, 10^8, 2}]

Crossrefs

Cf. A029972 and A029976.

Sequence in context: A303371 A362182 A046474 * A115835 A089678 A072712

Adjacent sequences: A056143 A056144 A056145 * A056147 A056148 A056149

Keyword

nonn,base

Author

Robert G. Wilson v, Jul 29 2000

Status

approved