OFFSET
1,4
FORMULA
a(n) = Sum_{k=1..floor(n/2)} k * (n-k) * c(k) * c(n-k), where c = A245656.
EXAMPLE
a(14) = 95. There are 3 distinct rectangles with semiperimeter 14 whose side lengths are arithmetic numbers. They are: 13 X 1, 11 X 3, and 7 X 7. The total area of the rectangles is 13*1 + 11*3 + 7*7 = 95.
MATHEMATICA
a[n_] := Boole[IntegerQ[Mean[Divisors[n]]]]; Table[Sum[k*(n - k) a[k]*a[n - k], {k, Floor[n/2]}], {n, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Feb 05 2024
STATUS
approved