OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..5590
EXAMPLE
a(4) = 73 is a term because 73 is an odd prime, its binary representation is 1001001, and no proper substring of 1001001 is the binary representation of an odd prime.
MAPLE
R:= NULL:
S[1]:= {1};
for d from 2 to 30 do
S[d]:= {};
for m from 1 to d-1 do
for x in S[m] do
y:= x + 2^(d-1);
flag:= false;
for j from 1 to m do
w:= floor(y/2^j);
if w::odd and isprime(w) then flag:= true; break fi;
od;
if flag then next fi;
if isprime(y) then R:= R, y
else S[d]:= S[d] union {y}
fi
od od od:
R;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Sep 07 2023
STATUS
approved