OFFSET
1,1
COMMENTS
Lengths of groups: 3, 7, 11, 11, 9, 3, 5, 7, 3, 7, 5, 3, 9, 3, 7, 6, 9, 3, 3, 3, 3, 5, 5, 7, 9, 3, 7, 3, 3, 4, 5, 3, 3, 3, 7, 3, 3, 3, 7, 3, 5, 8, 7, 3, 4, 11, 7, 5, 3, 6, 3, 7, 3, 3, 3, 3, 3, 3, 7, 3, 3, 7, 3, 5, 7, 3, 5, 7, 5, 7, 13, 5, 5, 17, 6, 11, 3, 15, 3, 3, 5.
Minimal length is 3 but what about maximal length of groups?
EXAMPLE
MATHEMATICA
s = {10}; t = p = 7; Do[While[2 != PrimeOmega[t],
t = t + (p = NextPrime[p])]; AppendTo[s, t]; t = p = NextPrime[p], {80}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 19 2020
STATUS
approved