login
A029974
Primes that are palindromic in base 6.
7
2, 3, 5, 7, 37, 43, 61, 67, 191, 197, 1297, 1627, 1663, 1699, 1741, 1777, 1999, 2143, 2221, 2293, 2551, 6521, 6779, 7001, 7109, 7151, 7187, 7331, 7481, 7517, 7703, 47521, 47737, 49069, 49537, 51517, 52201, 54181, 55987, 57751, 59083
OFFSET
1,1
MATHEMATICA
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 *)
Select[Prime[Range[6000]], IntegerDigits[#, 6]==Reverse[IntegerDigits[#, 6]]&] (* Harvey P. Dale, Mar 13 2023 *)
CROSSREFS
Sequence in context: A217070 A274678 A048415 * A065727 A090713 A090912
KEYWORD
nonn,base
STATUS
approved