OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..51
MATHEMATICA
solnum[n_] := Length[invUPhi[n]]; seq[kmax_] := Module[{s = {}, solmax=0}, Do[sol = solnum[k]; If[sol > solmax, solmax = sol; AppendTo[s, k]], {k, 1, kmax}]; s]; seq[10^5] (* using the function invUPhi from A361966 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 01 2023
STATUS
approved