login
A362488
Record values in A362487.
1
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
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
Similar sequences: A101373, A131934, A361971, A362184.
Sequence in context: A100143 A234941 A303744 * A059254 A024518 A128422
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 22 2023
STATUS
approved