OFFSET
1,2
FORMULA
a(n) = Numerator[Sum[Sum[Sum[i*j/k, {i, 1, n}], {j, 1, n}], {k, 1, n}]]
EXAMPLE
Sum[M(i,j,k)] begins 1, 27/32, 66, 625/3, 2055/4, 21609/20, ... So a(4) = 625.
MATHEMATICA
Table[ Numerator[ Sum[ i*j/k, {i, n}, {j, n}, {k, n}]], {n, 23}]
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Alexander Adamchuk, Oct 28 2004
STATUS
approved