login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A046473
Primes that are palindromic in bases 3 and 10.
0
2, 151, 757, 93739, 7949497, 112969211
OFFSET
1,1
EXAMPLE
757_10 = 1001001_3. - Jon E. Schoenfield, Apr 10 2021
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 *)
CROSSREFS
Sequence in context: A157074 A329712 A128350 * A261967 A024245 A113576
KEYWORD
nonn,hard,base
AUTHOR
Patrick De Geest, Aug 15 1998
STATUS
approved