|
|
A066195
|
|
Smallest prime containing n zeros in its binary expansion.
|
|
6
|
|
|
3, 2, 19, 17, 67, 131, 523, 257, 1033, 2053, 4099, 8209, 16417, 32771, 65539, 65537, 262147, 524353, 1048609, 2097169, 4194433, 8388617, 16777729, 67108913, 67239937, 134250497, 268435459, 536903681, 1073741827, 2147483713, 8589934627, 8589934609, 17179869697
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[ k = 1; While[ Count[ IntegerDigits[ Prime[ k ], 2 ], 0 ] != n, k++ ]; Print[ Prime[ k ] ], {n, 1, 24} ]
|
|
PROG
|
(Haskell)
import Data.List (find)
import Data.Maybe (fromJust)
a066195 n = fromJust $ find ((== n) . a023416) a000040_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|