OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..50
MATHEMATICA
solnum[n_] := Length[invIPhi[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^4] (* using the function invIPhi from A362484 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 22 2023
STATUS
approved