A145637 Numerator of the polynomial A_l(x) = sum_{d=1..l-1} x^(l-d)/d for index l=2n+1 evaluated at x=15.
465, 209565, 47152315, 148529794155, 33419203686359, 82712529123751895, 241934147686974440055, 108870366459138498280005, 1249287455118614267774548855, 1780234623544025331578797259451
Offset: 1
Programs
-
Mathematica
m = 15; 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*)
Extensions
Edited by R. J. Mathar, Aug 21 2009
Comments