A362668 a(n) = A091732(A362667(n)).

1, 2, 3, 4, 6, 8, 12, 16, 18, 20, 24, 36, 48, 60, 64, 72, 80, 90, 96, 108, 120, 128, 132, 144, 192, 240, 288, 360, 384, 432, 480, 528, 576, 648, 672, 720, 792, 864, 960, 1008, 1080, 1104, 1152, 1440, 1728, 1920, 2160, 2304, 2592, 2880, 3072, 3168, 3456, 3600, 3840

Offset

1,2

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, k]], {k, 1, kmax}]; v]; seq[4000] (* using the function invIPhi from A362484 *)

Crossrefs

The infinitary version of A036912.

Indices of records of A362666.

Cf. A091732, A362484, A362667.

Sequence in context: A240557 A326712 A191612 * A048874 A092824 A355578

Adjacent sequences: A362665 A362666 A362667 * A362669 A362670 A362671

Keyword

nonn

Author

Amiram Eldar, Apr 29 2023

Status

approved