[go: up one dir, main page]

login
A369918
Total area of all distinct rectangles with semiperimeter n whose side lengths are arithmetic numbers.
0
0, 1, 0, 3, 0, 14, 6, 22, 18, 46, 30, 82, 42, 95, 14, 109, 108, 204, 148, 320, 208, 389, 184, 443, 434, 761, 558, 999, 502, 926, 488, 986, 1020, 1840, 1204, 1917, 1388, 1884, 990, 2416, 1870, 3029, 2172, 3895, 2060, 3466, 2146, 3938, 3562, 5395, 3708, 6269, 4214, 5800
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