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,1

Links

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

Formula

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

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 *)

Crossrefs

The unitary version of A131934.

Cf. A361966, A361967, A361968.

Sequence in context: A351702 A125157 A093327 * A186041 A322531 A302591

Adjacent sequences: A361968 A361969 A361970 * A361972 A361973 A361974

Keyword

nonn

Author

Amiram Eldar, Apr 01 2023

Extensions

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

Status

approved