OFFSET
1,1
MATHEMATICA
solnum[n_] := Length[invIPhi[n]]; seq[kmax_] := Module[{s = {}, solmax=0}, Do[sol = solnum[k]; If[sol > solmax, solmax = sol; AppendTo[s, sol]], {k, 1, kmax}]; s]; seq[10^4] (* using the function invIPhi from A362484 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 22 2023
STATUS
approved