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
Links
- Amiram Eldar, Table of n, a(n) for n = 1..311 (terms 1..71 from Robert G. Wilson v)
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] &]