|
%I #18 Mar 13 2023 17:51:03
%S 2,3,5,7,37,43,61,67,191,197,1297,1627,1663,1699,1741,1777,1999,2143,
%T 2221,2293,2551,6521,6779,7001,7109,7151,7187,7331,7481,7517,7703,
%U 47521,47737,49069,49537,51517,52201,54181,55987,57751,59083
%N Primes that are palindromic in base 6.
%H John Cerkan, <a href="/A029974/b029974.txt">Table of n, a(n) for n = 1..10000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%t f[n_]:=FromDigits[RealDigits[n,6][[1]]]==FromDigits[Reverse[RealDigits[n,6][[1]]]]; lst={}; Do[p=Prime[n]; If[f[p],AppendTo[lst,p]],{n,8!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009 *)
%t Select[Prime[Range[6000]],IntegerDigits[#,6]==Reverse[IntegerDigits[#,6]]&] (* _Harvey P. Dale_, Mar 13 2023 *)
%K nonn,base
%O 1,1
%A _Patrick De Geest_
|
