login
A056145
Palindromic primes in bases 2 and 8.
0
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
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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jul 29 2000
EXTENSIONS
More terms from Harvey P. Dale, Sep 23 2017
STATUS
approved