OFFSET
1,1
COMMENTS
a(n) is the first odd prime p such that between any two 1's in the base-2 representation of p there are at least n-1 0's.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
f:= proc(m) local S, d, j, r, q;
S[0]:= [1];
for d from 1 do
S[d]:= NULL;
for j from 0 to d-m do
for r in S[j] do
q:= r + 2^d;
if isprime(q) then return q fi;
S[d]:= S[d], q;
od;
od;
S[d]:= [S[d]];
od;
end proc:
map(f, [$1..30]);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Sep 04 2023
STATUS
approved