OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 10000: # to get all terms <= N
S:= {2}:
Agenda:= {2};
while Agenda <> {} do
x:= Agenda[1];
T:= select(`<=`, map(s -> s*x+3, S) minus S, N);
S:= S union T;
Agenda:= Agenda[2..-1] union T;
od:
sort(convert(S, list)); # Robert Israel, Jun 08 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved