OFFSET
1,1
COMMENTS
REFERENCES
John Mason, Email message, Apr 07 2015
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 100:
S:= {$1..N}:
R:= NULL;
for n from 1 do
if isprime(n) then if S = {} then break else t:= min(S) fi else t:= 2*n fi;
R:= R, t;
S:= S minus {t}
od:
R;
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 07 2015
STATUS
approved