|
MATHEMATICA
|
m = 11; aa = {}; Do[k = 0; Do[k = k + m^(2 r + 1 - d)/d, {d, 1, 2 r}]; AppendTo[aa, Numerator[k]], {r, 1, 25}]; aa (* Artur Jasinski *)
a[n_, m_]:=Integrate[(m-x^n)/(m-x), {x, 0, 1}]+(m^n-m)Log[m/(m-1)]
Table[11 a[2 n, 11] // FullSimplify // Numerator, {n, 1, 25}] (* Gerry Martens , Jun 04 2016*)
|