|
%I #11 Jul 06 2015 08:29:27
%S 1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,18,20,22,24,26,28,30,32,34,36,38,
%T 40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,
%U 88,90,92,94,96,100,102,104,106,108,112,114,116,118,120,124,126,128
%N Sigma_3(n)/n > Sigma_3(k)/k for all k < n.
%C sigma_3(n) is the sum of the cubes of the divisors of n (A001158).
%H Ivan Neretin, <a href="/A055722/b055722.txt">Table of n, a(n) for n = 1..5000</a>
%t a=0; Do[b=DivisorSigma[3, n]/n; If[b>a, a=b; Print[n]], {n, 1, 150}]
%Y Cf. A002182.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 09 2000
|
