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

Author

Hugo Pfoertner, May 20 2022

Keywords

• nonn

Crossrefs

Cf. A001221, A076978, A354219.

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 *)