|
|
A055721
|
|
Numbers n such that sigma_2(n)/n > sigma_2(k)/k for all k < n.
|
|
1
|
|
|
1, 2, 3, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 28, 30, 36, 40, 42, 48, 54, 60, 66, 70, 72, 78, 80, 84, 90, 96, 108, 120, 132, 140, 144, 150, 156, 168, 180, 192, 204, 210, 216, 228, 240, 252, 264, 270, 276, 288, 300, 312, 324, 330, 336, 348, 360, 384, 396, 408
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
sigma_2(n) is the sum of the squares of the divisors of n (A001157).
|
|
LINKS
|
|
|
MAPLE
|
m:= 0: res:= NULL:
for n from 1 to 500 do
r:= numtheory:-sigma[2](n)/n;
if r > m then
m:= r;
res:= res, n;
fi
od:
|
|
MATHEMATICA
|
a=0; Do[b=DivisorSigma[2, n]/n; If[b>a, a=b; Print[n]], {n, 1, 10^7}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|