This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A361971 #12 Apr 10 2023 05:14:51 %S A361971 2,3,4,5,8,11,12,14,17,23,30,31,40,64,85,95,119,147,152,207,232,257, %T A361971 283,344,421,469,645,956,1034,1306,1578,1797,1943,2304,2334,2877,3217, %U A361971 3396,3536,3973,4378,5171,5457,5464,5659,7586,8317,8430,10609,12566,14469 %N A361971 Record values in A361967. %F A361971 a(n) = A361967(A361968(n)). %t A361971 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 *) %Y A361971 The unitary version of A131934. %Y A361971 Cf. A361966, A361967, A361968. %K A361971 nonn %O A361971 1,1 %A A361971 _Amiram Eldar_, Apr 01 2023 %E A361971 a(43)-a(51) from _Amiram Eldar_, Apr 10 2023