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

Author

Robert G. Wilson v, Jul 29 2000

Keywords

• nonn
• base

Crossrefs

Cf. A029972 and A029976.

Programs

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}]