OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 10^4: # for terms <= N
R:= seq(2^i, i=0..ilog2(N/2)):
p:= 3:
while p <= N/2 do
R:= R, seq(p*2^i, i=0..floor(log[2](N/2/p)));
p:= nextprime(p);
od:
R:= sort([R]):
select(isprime, R);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, May 06 2021
STATUS
approved