|
| |
|
|
A073957
|
|
Records for sum of the anti-divisors function.
|
|
0
| |
|
|
1, 3, 4, 5, 7, 10, 13, 17, 22, 25, 27, 28, 32, 38, 45, 52, 58, 60, 63, 67, 77, 94, 95, 105, 112, 115, 122, 130, 137, 143, 157, 158, 175, 193, 203, 238, 247, 270, 280, 292, 297, 315, 347, 357, 410, 423, 445, 462, 472, 473, 500, 553, 578, 630, 637, 675, 682, 742
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| See A066272 for definition of anti-divisor.
|
|
|
MAPLE
| with(numtheory);
P:= proc(n)
local a, b, i, k;
b:=0;
for i from 3 to n do
a:=0;
for k from 2 to i-1 do
if abs((i mod k)- k/2) < 1 then a:=a+k; fi;
od;
if a>b then print(i); b:=a; fi;
od;
end:
P(1000); # Paolo P. Lava, Jul 19 2011.
|
|
|
CROSSREFS
| Cf. A066417.
Sequence in context: A159560 A030502 A201025 * A162311 A003312 A022440
Adjacent sequences: A073954 A073955 A073956 * A073958 A073959 A073960
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Sep 03 2002
|
| |
|
|
