OFFSET
1,2
COMMENTS
The common values of A071626 in each run are 0, 1, 12, 3, 4, 18, 5, 20, 13, 9, 6, 12, 22, 13, 23, 17, 10, 18, 23, ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..162
EXAMPLE
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}; Do[i = FirstPosition[d, k]; If[MissingQ[i], Break[]]; AppendTo[seq, ind[[i[[1]]]] + 1], {k, 2, Max[d]}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 26 2022
STATUS
approved