OFFSET
0,1
LINKS
H. H. Chan and C. Krattenthaler, Recent progress in the study of representations of integers as sums of squares, arXiv:math/0407061 [math.NT], 2004.
FORMULA
G.f.: 17 + 32 * Sum_{k >= 1} k^7*q^k/(1-(-q)^k).
MATHEMATICA
max = 20; s = 17 + 32*Sum[k^7*q^k/(1-(-q)^k), {k, 1, max}] + O[q]^max; CoefficientList[s, q] (* Jean-François Alcover, Dec 07 2015 *)
PROG
(PARI) a(n)=if(n<1, 17*(n==0), 32*sumdiv(n, d, d^7-2*if(d%4==2, (d/2)^7))) /* Michael Somos, Jul 16 2004 */
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved