A056145 Palindromic primes in bases 2 and 8.

3, 5, 7, 73, 28807, 31727, 262657, 295433, 1311749, 1385621, 1478189, 1540157, 1543741, 1549501, 1551037, 1865159, 1932247, 2031599, 2067007, 2085247, 2087807, 83914757, 84663941, 85742021, 85808581, 88779413, 89420117, 89466197, 89924053, 90169301, 94971053, 94983341

Offset

1,1

Links

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

Mathematica

Do[ If[ PrimeQ[ n ], t=RealDigits[ n, 8 ][ [ 1 ] ]; If[ FromDigits[ t ]==FromDigits[ Reverse[ t ] ], s=RealDigits[ n, 2 ][ [ 1 ] ]; If[ FromDigits[ s ]==FromDigits[ Reverse[ s ] ], Print[ n ] ] ] ], {n, 1, 10^8} ]
Select[Prime[Range[155000]], PalindromeQ[IntegerDigits[#, 2]] && PalindromeQ[ IntegerDigits[ #, 8]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 23 2017 *)

Crossrefs

Cf. A016041 and A029976.

Sequence in context: A137999 A353141 A291438 * A119939 A306573 A254925

Adjacent sequences: A056142 A056143 A056144 * A056146 A056147 A056148

Keyword

nonn,base

Author

Robert G. Wilson v, Jul 29 2000

Extensions

More terms from Harvey P. Dale, Sep 23 2017

Status

approved