[go: up one dir, main page]

login
A361971
Record values in A361967.
7
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
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.
Sequence in context: A351702 A125157 A093327 * A186041 A322531 A302591
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 01 2023
EXTENSIONS
a(43)-a(51) from Amiram Eldar, Apr 10 2023
STATUS
approved