|
MATHEMATICA
|
Select[Prime[Range[10!]], IntegerDigits[#]==Reverse[IntegerDigits[#]] && IntegerDigits[#, 2]==Reverse[IntegerDigits[#, 2]]&] (* Vladimir Joseph Stephan Orlovsky, Dec 30 2010 *)
p = Sort[Reap[Do[d=IntegerDigits[n]; p1=FromDigits[Join[Most[d], Reverse[d]]]; p2=FromDigits[Join[d, Reverse[d]]]; If[IntegerDigits[p1, 2] == Reverse[IntegerDigits[p1, 2]], Sow[p1]]; If[IntegerDigits[p2, 2] == Reverse[IntegerDigits[p2, 2]], Sow[p2]], {n, 0, 9999999}]][[2, 1]]]; Select[p, PrimeQ]
|