OFFSET
1,1
EXAMPLE
43890 = 209*210 = 2*3*5*7*11*19
53130 = 230*231 = 2*3*5*7*11*23
81510 = 285*286 = 2*3*5*11*13*19
108570 = 329*330 = 2*3*5*7*11*47
MAPLE
R:= NULL: count:= 0:
for n from 1 while count < 100 do
x:= n*(n+1);
F:= ifactors(x)[2];
if nops(F) = 6 and max(map(t -> t[2], F))=1 then
R:= R, x; count:= count+1;
fi
od:
R; # Robert Israel, Dec 26 2022
MATHEMATICA
Select[(#*(# + 1)) & /@ Range[1250], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1, 1, 1} &] (* Amiram Eldar, Dec 26 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Dec 26 2022
STATUS
approved