1,1

P. De Geest, World!Of Palindromic Primes

f[n_, b_]:=FromDigits[RealDigits[n, b][[1]]]==FromDigits[Reverse[RealDigits[n, b][[1]]]]; lst={}; Do[p=Prime[n]; If[f[p, 3]&&f[p, 10], AppendTo[lst, p]], {n, 8!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 25 2009]

Cf. A002385.

Sequence in context: A141130 A157074 A128350 this_sequence A024245 A113576 A102458

Adjacent sequences: A046470 A046471 A046472 this_sequence A046474 A046475 A046476

nonn,hard

Patrick De Geest (pdg(AT)worldofnumbers.com), Aug 15 1998.