OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= {2}:
N:= 6000:
Agenda:= {2^2+6};
while Agenda <> {} do
t:= min(Agenda);
Agenda:= Agenda minus {t};
R:= R union {t};
Agenda:= Agenda union (select(`<=`, map(s -> s*t+6, R), N) minus R);
od:
sort(convert(R, list)); # Robert Israel, Jan 03 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved