login
A362487
Infinitary highly totient numbers: numbers k that have more solutions x to the equation iphi(x) = k than any smaller k, where iphi is the infinitary totient function A091732.
3
1, 6, 12, 24, 48, 96, 144, 240, 288, 480, 576, 720, 1152, 1440, 2880, 4320, 5760, 8640, 11520, 17280, 34560, 51840, 69120, 103680, 120960, 172800, 207360, 241920, 345600, 362880, 414720, 483840, 725760, 967680, 1209600, 1451520, 1935360, 2419200, 2903040, 3628800
OFFSET
1,2
COMMENTS
Indices of records of A362485.
The corresponding numbers of solutions are 2, 4, 6, 10, 14, 18, 22, ... (A362488).
LINKS
MATHEMATICA
solnum[n_] := Length[invIPhi[n]]; seq[kmax_] := Module[{s = {}, solmax=0}, Do[sol = solnum[k]; If[sol > solmax, solmax = sol; AppendTo[s, k]], {k, 1, kmax}]; s]; seq[10^4] (* using the function invIPhi from A362484 *)
CROSSREFS
Similar sequences: A097942, A100827, A361968, A362183.
Sequence in context: A212116 A160728 A332043 * A229926 A082505 A091629
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 22 2023
STATUS
approved