OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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 *)
Select[Times@@@Partition[Range[400], 2, 1], PrimeNu[#]==PrimeOmega[#]==4&] (* Harvey P. Dale, Jul 08 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Dec 10 2022
STATUS
approved
