A056146 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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