|
%I #19 Sep 07 2019 08:13:39
%S 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,
%T 45,49,56,60,63,64,65,72,73,81,83,94,100,105,121,138,145,149,169,175,
%U 176,180,182,202,210,234,236,256,285,288,306,319,343,347,362,382
%N Number of times that A325177(n) occurs in the sum of proper unitary divisors function (A034460).
%C The unitary version of A238896.
%F a(n) = A324938(A325177(n)).
%t 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
%Y Cf. A034448, A034460, A063948, A238896, A324938, A325177.
%K nonn
%O 1,3
%A _Amiram Eldar_, Sep 05 2019
|
