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,2

Links

Table of n, a(n) for n=1..61.

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

Crossrefs

Cf. A001221, A076978, A354219.

Sequence in context: A092597 A335134 A334918 * A125506 A079334 A085153

Adjacent sequences: A354217 A354218 A354219 * A354221 A354222 A354223

Keyword

nonn

Author

Hugo Pfoertner, May 20 2022

Status

approved