OFFSET
0,4
COMMENTS
For a partition p, let l(p) = largest part of p, w(p) = number of 1's in p, m(p) = number of parts of p larger than w(p). The crank of p is given by l(p) if w(p) = 0, otherwise m(p)-w(p).
MAPLE
A000041 := proc(n) combinat[numbpart](n) ; end: A124226 := proc(n) local x, gf, i ; gf := 1; for i from 1 to n+1 do gf := taylor(gf*(1-x^i)/(1+x^i)^2, x=0, n+1) ; od ; coeftayl(2*x+gf, x=0, n) ; end: A124228 := proc(n) (A000041(n)-A124226(n))/2 ; end: for n from 0 to 60 do printf("%a, ", A124228(n)) ; od ; # R. J. Mathar, May 18 2007
MATHEMATICA
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Oct 20 2006
EXTENSIONS
More terms from R. J. Mathar, May 18 2007
STATUS
approved