login
A325202
Number of times that A325177(n) occurs in the sum of proper unitary divisors function (A034460).
0
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 21, 24, 26, 28, 31, 33, 35, 37, 38, 45, 49, 56, 60, 63, 64, 65, 72, 73, 81, 83, 94, 100, 105, 121, 138, 145, 149, 169, 175, 176, 180, 182, 202, 210, 234, 236, 256, 285, 288, 306, 319, 343, 347, 362, 382
OFFSET
1,3
COMMENTS
The unitary version of A238896.
FORMULA
a(n) = A324938(A325177(n)).
MATHEMATICA
us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 300; v = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++], {k, 1, m^2}]; s = {}; vm = -1; Do[If[v[[k]] > vm, vm = v[[k]]; AppendTo[s, vm]], {k, 2, m}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 05 2019
STATUS
approved