OFFSET
1,1
COMMENTS
EXAMPLE
Aliquot parts of 32 are 1, 2, 4, 8, 16. Polynomial: (x-1)*(x-2)*(x-4)*(x-8)*(x-16) = x^5-31*x^4+310*x^3-1240*x^2+1984*x-1024. Integral: x^6/6-31/5*x^5+155/2*x^4-1240*x^3/3+992*x^2-1024*x. The area from x=1 to x=16 is -81000.
MAPLE
with(numtheory): P:=proc(n) local a, k, x, y;
a:=sort([op(divisors(n) minus {n})]);
y:=int(mul((x-k), k=a), x=1..a[nops(a)]);
if frac(y)=0 and y<0 then n; fi; end: seq(P(i), i=2..305);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava, Feb 14 2019
STATUS
approved