|
%I #8 Apr 22 2023 10:35:58
%S 2,4,6,10,14,18,22,30,34,40,48,58,60,92,136,146,184,232,240,342,478,
%T 518,638,772,830,924,1080,1264,1330,1340,1462,1824,2132,2528,2710,
%U 3224,3354,4084,4672,4812,4976,5912,6496,7606,8230,8698,11472,12354,16580,19250
%N Record values in A362487.
%F a(n) = A362485(A362487(n)).
%t 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 *)
%Y Cf. A362484, A362487.
%Y Similar sequences: A101373, A131934, A361971, A362184.
%K nonn
%O 1,1
%A _Amiram Eldar_, Apr 22 2023
|
