OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..300
MATHEMATICA
s[n_] := If[(inv = invIPhi[n]) == {}, 0, Max[inv]]; seq[kmax_] := Module[{v = {}, s1, sm = 0}, Do[s1 = s[k]; If[s1 > sm, sm = s1; AppendTo[v, s1]], {k, 1, kmax}]; v]; seq[3000] (* using the function invIPhi from A362484 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 29 2023
STATUS
approved