A046473 Primes that are palindromic in bases 3 and 10.

2, 151, 757, 93739, 7949497, 112969211

Offset: 1

Author

Patrick De Geest, Aug 15 1998

Keywords

• nonn
• hard
• base

Examples

			757_10 = 1001001_3. - _Jon E. Schoenfield_, Apr 10 2021
		

Links

• P. De Geest, World!Of Palindromic Primes

Crossrefs

Cf. A002385, A007633.

Programs

Mathematica

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 (* Vladimir Joseph Stephan Orlovsky, Sep 25 2009 *)
Select[Prime[Range[65*10^5]],PalindromeQ[#]&&IntegerDigits[#,3]==Reverse[ IntegerDigits[ #,3]]&] (* Harvey P. Dale, Jul 20 2024 *)