A145639 Numerator of the polynomial A_l(x) = sum_{d=1..l-1} x^(l-d)/d for index l=2n+1 evaluated at x=16.
264, 203020, 86622136, 155226869062, 357642706328312, 1007121861020611852, 3351701553476597181976, 858035597690008879399669, 1244723640382306214386523896, 1210867157363907485355224291060
Offset: 1
Programs
-
Mathematica
m = 16; 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