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 * A024245 A113576 A102458
Adjacent sequences: A046470 A046471 A046472 * A046474 A046475 A046476
nonn,hard,base
Patrick De Geest (pdg(AT)worldofnumbers.com), Aug 15 1998.
