|
|
A106846
|
|
Sum {k + l*m <= n} (k + l*m), with 0 <= k,l,m <= n.
|
|
4
|
|
|
0, 4, 22, 64, 144, 269, 461, 720, 1072, 1522, 2092, 2774, 3626, 4614, 5776, 7126, 8694, 10445, 12461, 14684, 17204, 19997, 23077, 26412, 30156, 34206, 38600, 43352, 48532, 54042, 60072, 66458, 73338, 80664, 88450, 96710, 105638, 114999
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
local a, k, l, m ;
a := 0 ;
for k from 0 to n do
for l from 0 to n do
if l = 0 then
m := n ;
else
m := floor((n-k)/l) ;
end if;
if m >=0 then
m := min(m, n) ;
a := a+(m+1)*k+l*m*(m+1)/2 ;
end if;
end do:
end do:
a ;
|
|
MATHEMATICA
|
A106846[n_] := Module[{a, k, l, m }, a = 0; For[k = 0, k <= n, k++, For[l = 0, l <= n, l++, If[l == 0, m = n, m = Floor[(n - k)/l]]; If[m >= 0, m = Min[m, n]; a = a + (m + 1)*k + l*m*(m + 1)/2 ]]]; a];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|