A244114 Prime lucky numbers that are palindromic in base 2.

3, 7, 31, 73, 127, 1831, 1879, 5869, 6211, 8191, 19609, 25939, 28123, 86293, 86677, 88117, 97213, 98563, 98947, 115783, 131071, 268993, 287281, 296713, 321721, 354997, 456571, 505711, 514783, 524287, 1096609, 1199689, 1242601, 1415989, 1420981, 1488301, 1672243, 1741099, 1851271

Offset: 1

Author

Robert G. Wilson v, Jun 20 2014

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..311 (terms 1..71 from Robert G. Wilson v)

Crossrefs

Intersection of A000040, A000959 & A006995.

Cf. A031881.

Programs

Mathematica

nn = 10^7; t = Range[1, nn, 2]; sieve[n_] := Module[{k = t[[n]]}, t = Delete[t, Table[{i}, {i, k, Length[t], k}]]]; n = 1; While[ t[[n]] < Length[t], n++; sieve[n]]; palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[ idn]]; Select[t, PrimeQ@# && palQ[#, 2] &]