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

Author

Robert G. Wilson v, Jul 29 2000

Keywords

• nonn
• base

Crossrefs

Cf. A016041 and A029976.

Programs

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 *)

Extensions

More terms from Harvey P. Dale, Sep 23 2017