The n+1 degree polynomial which computes A064538(n) times the sum of the n-th powers of positive integers (constant term first).
0, 1, 0, 1, 1, 0, 1, 3, 2, 0, 0, 1, 2, 1, 0, -1, 0, 10, 15, 6, 0, 0, -1, 0, 5, 6, 2, 0, 1, 0, -7, 0, 21, 21, 6, 0, 0, 2, 0, -7, 0, 14, 12, 3, 0, -3, 0, 20, 0, -42, 0, 60, 45, 10, 0, 0, -3, 0, 10, 0, -14, 0, 15, 10, 2, 0, 5, 0, -33, 0, 66, 0, -66, 0, 55, 33, 6, 0
0
A negative term x is plotted as -Log10(-x).
T. D. Noe, Plot of 101 rows
T. D. Noe, Table of 101 rows
(Mma) Table[s = (Sum[(-1)^k Binomial[p + 1, k] BernoulliB[k] n^(p + 1 - k), {k, 0, p}])/(p + 1); d = Denominator[Factor[s]]; CoefficientList[Expand[d*s], n], {p, 0, 10}]
nonn,tabl
T. D. Noe, Jul 14 2015