A361971 Record values in A361967.

2, 3, 4, 5, 8, 11, 12, 14, 17, 23, 30, 31, 40, 64, 85, 95, 119, 147, 152, 207, 232, 257, 283, 344, 421, 469, 645, 956, 1034, 1306, 1578, 1797, 1943, 2304, 2334, 2877, 3217, 3396, 3536, 3973, 4378, 5171, 5457, 5464, 5659, 7586, 8317, 8430, 10609, 12566, 14469

Offset: 1

Author

Amiram Eldar, Apr 01 2023

Keywords

• nonn

Crossrefs

The unitary version of A131934.

Cf. A361966, A361967, A361968.

Programs

Mathematica

solnum[n_] :=  Length[invUPhi[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^5] (* using the function invUPhi from A361966 *)

Formula

a(n) = A361967(A361968(n)).

Extensions

a(43)-a(51) from Amiram Eldar, Apr 10 2023