OFFSET
1,1
COMMENTS
Like A003601 but using anti-divisors
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
EXAMPLE
Anti-divisors of 38 are 7: 3, 4, 5, 7, 11, 15, 25. Their sum is 70 and 70/7=10 that is integer.
MAPLE
with(numtheory);
P:=proc(n)
local a, b, i, k;
for i from 3 to n do
a:=0; b:=0;
for k from 2 to i-1 do
if abs((i mod k)- k/2) < 1 then a:=a+k; b:=b+1; fi;
od;
if trunc(a/b)=a/b then print(i); fi;
od;
end:
P(1000);
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jul 20 2011
STATUS
approved