OFFSET
1,1
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # for terms before the first term > N
V:= Vector(N):
A[1]:= 5: V[5]:= 1:
for n from 2 do
S:= {seq(seq(k*p, k=1..N/p), p=numtheory:-factorset(A[n-1]))};
for s in sort(convert(S, list)) do
if V[s] = 0 then
A[n]:= s;
break
fi
od;
if V[s] = 1 then break fi;
V[s]:= 1;
od:
seq(A[i], i=1..n-1); # Robert Israel, Jan 18 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe and N. J. A. Sloane, Jun 02 2010
STATUS
approved