A325202 Number of times that A325177(n) occurs in the sum of proper unitary divisors function (A034460).

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.

Links

Table of n, a(n) for n=1..62.

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

Cf. A034448, A034460, A063948, A238896, A324938, A325177.

Sequence in context: A102466 A354144 A322547 * A338973 A084176 A059389

Adjacent sequences: A325199 A325200 A325201 * A325203 A325204 A325205

Keyword

nonn

Author

Amiram Eldar, Sep 05 2019

Status

approved