A029974 Primes that are palindromic in base 6.
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
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
- P. De Geest, World!Of Palindromic Primes
Programs
-
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 *)