|
%I #13 Sep 23 2022 07:14:00
%S 0,1,2,3,5,6,8,9,10,13,15,20,21,24,25,27,32,34,41,44,46,56,59,70,74,
%T 76,86,92,99,115,116,129,138,145,156,164,169,171,193,199,222,223,242,
%U 246,268,270,278,295,304,334,343,365,397,398,433,452,471,482,521
%N Number of times that the number A238895(n) occurs in the sum of proper divisors function (A001065).
%H Amiram Eldar, <a href="/A238896/b238896.txt">Table of n, a(n) for n = 1..245</a>
%F a(n) = A048138(A238895(n)). - _Amiram Eldar_, Sep 23 2022
%t nn = 1000; s = Table[0, {nn}]; Do[k = DivisorSigma[1, n] - n; If[0 < k <= nn, s[[k]]++], {n, nn^2}]; mx = -1; t = {}; Do[If[s[[n]] > mx, mx = s[[n]]; AppendTo[t, {n, mx}]], {n, 2, nn}]; Transpose[t][[2]]
%Y Cf. A001065, A005114, A048138, A238895.
%K nonn
%O 1,3
%A _T. D. Noe_, Mar 10 2014
|
