A362231 a(n) = A047994(A362230(n)).

1, 2, 4, 6, 8, 12, 20, 24, 32, 36, 44, 48, 72, 80, 96, 120, 128, 144, 176, 192, 216, 224, 240, 264, 288, 320, 336, 360, 368, 384, 416, 464, 480, 576, 768, 864, 960, 1056, 1280, 1344, 1440, 1536, 1728, 1920, 2016, 2208, 2400, 2496, 2688, 2784, 2880, 3168, 3360

Offset: 1

Author

Amiram Eldar, Apr 12 2023

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..300

Crossrefs

The unitary version of A036912.

Indices of records of A362229.

Cf. A047994, A361966, A362230.

Programs

Mathematica

s[n_] := If[(inv = invUPhi[n]) == {}, 0, Max[inv]]; seq[kmax_] := Module[{v = {}, s1, sm = 0}, Do[s1 = s[k]; If[s1 > sm, sm = s1; AppendTo[v, k]], {k, 1, kmax}]; v]; seq[3000] (* using the function invUPhi from A361966 *)