login
A056146
Palindromic primes in bases 4 and 8.
0
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
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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jul 29 2000
STATUS
approved