OFFSET
1,1
EXAMPLE
210 = 14*15 = 2*3*5*7.
1122 = 33*34 = 2*3*11*17.
10302 = 101*102 = 2*3*17*101.
20306 = 142*143 = 2*11*13*71.
MATHEMATICA
Select[(#*(# + 1)) & /@ Range[220], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1} &] (* Amiram Eldar, Dec 10 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Dec 10 2022
STATUS
approved