login
Primes that are palindromic in base 6.
7

%I #19 Aug 11 2024 14:41:30

%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="https://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_