STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
terms = 40; f[z_] = 1/(1-z-z^2); m[r_, j_] := SeriesCoefficient[(1/r)*z* DivisorSum[r, MoebiusMu[#]*f[z^#]^(r/#)&], {z, 0, j}]; Table[m[r, 7], {r, 1, terms}] (* Jean-François Alcover, Apr 01 2018 *)
approved
editing
proposed
approved
editing
proposed
Empirical g.f.: -x*(2*x^14 -4*x^13 -2*x^12 +6*x^11 +2*x^10 -5*x^9 -8*x^8 +10*x^7 +12*x^6 -6*x^5 -5*x^4 +3*x^3 +4*x^2 -8*x -13) / ((x -1)^6 * (x +1)^3 * (x^2 -x +1) * (x^2 +x +1)^2). - Colin Barker, Jul 31 2013
approved
editing
Edited by _Emeric Deutsch (deutsch(AT)duke.poly.edu), _, Mar 06 2004
_N. J. A. Sloane (njas(AT)research.att.com), _, Dec 05 2003
nonn,new
nonn
N. J. A. Sloane (njas, (AT)research.att.com), Dec 05 2003