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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jul 29 2000
EXTENSIONS
More terms from Harvey P. Dale, Sep 23 2017
STATUS
approved