OFFSET
1,1
MATHEMATICA
Select[Table[Prime[n], {n, 200}], IntegerDigits[#, 2] != Reverse[IntegerDigits[#, 2]] &](* Vladimir Joseph Stephan Orlovsky, Feb 26 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Omar E. Pol, Feb 25 2012
STATUS
approved