A362488 Record values in A362487.

2, 4, 6, 10, 14, 18, 22, 30, 34, 40, 48, 58, 60, 92, 136, 146, 184, 232, 240, 342, 478, 518, 638, 772, 830, 924, 1080, 1264, 1330, 1340, 1462, 1824, 2132, 2528, 2710, 3224, 3354, 4084, 4672, 4812, 4976, 5912, 6496, 7606, 8230, 8698, 11472, 12354, 16580, 19250

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Formula

a(n) = A362485(A362487(n)).

Mathematica

solnum[n_] := Length[invIPhi[n]]; seq[kmax_] := Module[{s = {}, solmax=0}, Do[sol = solnum[k]; If[sol > solmax, solmax = sol; AppendTo[s, sol]], {k, 1, kmax}]; s]; seq[10^4] (* using the function invIPhi from A362484 *)

Crossrefs

Cf. A362484, A362487.

Similar sequences: A101373, A131934, A361971, A362184.

Sequence in context: A100143 A234941 A303744 * A059254 A024518 A128422

Adjacent sequences: A362485 A362486 A362487 * A362489 A362490 A362491

Keyword

nonn

Author

Amiram Eldar, Apr 22 2023

Status

approved