A354220 a(n) is the record setting number of distinct prime factors in the product of the composite numbers between p = A354219(n) and the next prime after p.
1, 2, 3, 4, 5, 6, 7, 8, 9, 14, 15, 16, 20, 25, 27, 37, 38, 39, 40, 41, 45, 49, 56, 64, 66, 89, 90, 114, 120, 131, 145, 154, 164, 174, 187, 207, 217, 218, 222, 225, 266, 302, 328, 329, 330, 351, 364, 369, 377, 381, 437, 447, 449, 454, 461, 468, 497, 530, 535, 548, 551
Offset: 1
Keywords
Programs
-
Mathematica
Union@ FoldList[Max, Array[PrimeNu[Times @@ FactorInteger[Times @@ Range[#1 + 1, #2 - 1]][[All, 1]]] & @@ Map[Prime, # + {0, 1}] &, 10^4]] (* Michael De Vlieger, May 20 2022 *)