OFFSET
1,1
EXAMPLE
4290 = 65*66 = 2*3*5*11*13.
4830 = 69*70 = 2*3*5*7*23.
6006 = 77*78 = 2*3*7*11*13.
11130 = 105*106 = 2*3*5*7*53.
MATHEMATICA
Select[(#*(# + 1)) & /@ Range[400], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1, 1} &] (* Amiram Eldar, Dec 25 2022 *)
PROG
(PARI) select(x->((omega(x)==5) && (bigomega(x)==5)), vector(500, k, k*(k+1))) \\ Michel Marcus, Dec 25 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Dec 25 2022
STATUS
approved