OFFSET
1,2
COMMENTS
The corresponding record lengths are 1, 2, 4, 5, 7, 11, 17, 21, 29, 30, 32, 33, 35, 52, 57, 64, 78, 86, 96, 113, 122, 208, 221, ...
The common values of A071626 in each run are 0, 1, 3, 4, 5, 6, 10, 14, 15, 26, 27, 38, 40, 42, 48, 77, 84, 103, 172, 182, 335, 365, 1338, ...
FORMULA
MATHEMATICA
s[n_] := Length[Union[FactorInteger[n!][[;; , 2]]]]; s[1] = 0; ind = Position[Differences[Table[s[n], {n, 1, 1000}]], _?(# != 0 &)] // Flatten; d = Differences[ind]; seq = {1}; dm = -1; Do[If[d[[i]] > dm, dm = d[[i]]; AppendTo[seq, ind[[i]] + 1]], {i, 1, Length[d]}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Sep 26 2022
STATUS
approved