OFFSET
1,1
MATHEMATICA
solnum[n_] := Length[invUPhi[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^5] (* using the function invUPhi from A361966 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 01 2023
EXTENSIONS
a(43)-a(51) from Amiram Eldar, Apr 10 2023
STATUS
approved