This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A046473 #21 Aug 11 2024 14:41:31
%S A046473 2,151,757,93739,7949497,112969211
%N A046473 Primes that are palindromic in bases 3 and 10.
%H A046473 P. De Geest, <a href="https://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%e A046473 757_10 = 1001001_3. - _Jon E. Schoenfield_, Apr 10 2021
%t A046473 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 *)
%t A046473 Select[Prime[Range[65*10^5]],PalindromeQ[#]&&IntegerDigits[#,3]==Reverse[ IntegerDigits[ #,3]]&] (* _Harvey P. Dale_, Jul 20 2024 *)
%Y A046473 Cf. A002385, A007633.
%K A046473 nonn,hard,base
%O A046473 1,1
%A A046473 _Patrick De Geest_, Aug 15 1998