OFFSET
1,2
FORMULA
a(n) <= A002620(n+1), with equality for n <= 20.
PROG
(PARI) A2(a, b, c) = {my(s=(a+b+c)/2); s*(s-a)*(s-b)*(s-c)};
a371972(n) = {my (A=List()); for(s2=1, n, for(s3=1, s2, if(s2+s3>n, listput(A, A2(n, s2, s3))))); #Set(A)};
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Apr 16 2024
STATUS
approved