|
|
A220909
|
|
The second crank moment function M_2(n).
|
|
12
|
|
|
0, 2, 8, 18, 40, 70, 132, 210, 352, 540, 840, 1232, 1848, 2626, 3780, 5280, 7392, 10098, 13860, 18620, 25080, 33264, 44088, 57730, 75600, 97900, 126672, 162540, 208208, 264770, 336240, 424204, 534336, 669438, 837080, 1041810, 1294344, 1601138, 1977140, 2432430, 2987040, 3655806
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
M_2(n) is defined to be Sum_{m=-n..n} m^2 M(m,n) where M(m,n) is the number of partitions of n with crank m except for n=1 where M(-1,1) = M(1,1) = -M(0,1) = 1. - Michael Somos, Nov 10 2013
Apart from the initial zero this is also:
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ exp(Pi*sqrt(2*n/3))/(2*sqrt(3)) * (1 - (sqrt(3/2)/Pi + Pi/(24*sqrt(6))) / sqrt(n)). - Vaclav Kotesovec, Oct 24 2016
|
|
EXAMPLE
|
G.f. = 2*x + 8*x^2 + 18*x^3 + 40*x^4 + 70*x^5 + 132*x^6 + 210*x^7 + ...
For n=1, M_2(1) = Sum_{m=-1..1} m^2 * M(m,2) = (-1)^2*1 + 0^2*(-1) + 1^2*1 = 2. For n=2, the partition [2] has crank 2 and partition [1,1] has crank -2, hence M_2(2) = 2^2 + (-2)^2 = 8. - Michael Somos, Nov 10 2013
|
|
MATHEMATICA
|
|
|
PROG
|
(PARI) {a(n) = if( n<0, 0, 2 * n * polcoeff( 1 / eta(x + x * O(x^n)), n))} /* Michael Somos, Nov 10 2013 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|