|
|
A244114
|
|
Prime lucky numbers that are palindromic in base 2.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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] &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|