A348315 a(n) = Sum_{k=0..n} binomial(n^2 - k,n*k).
1, 1, 4, 64, 4382, 1357136, 1597653852, 8389021518585, 164828345435877580, 14256525628649472111712, 4602970880920727147946847283, 6484132480933772335644792339409450, 34112054985056318746734374876035089268523
Offset: 0
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..57
Programs
-
Mathematica
a[n_] := Sum[Binomial[n^2 - k, n*k], {k, 0, n}]; Array[a, 13, 0] (* Amiram Eldar, Oct 12 2021 *) -
PARI
a(n) = sum(k=0, n, binomial(n^2-k, n*k));
-
PARI
a(n) = polcoef((1-x)^(n-1)/((1-x)^n-x^(n+1)+x*O(x^n^2)), n^2);
Formula
a(n) = A306680(n^2,n) = [x^(n^2)] (1-x)^(n-1)/((1-x)^n - x^(n+1)).
a(n) ~ c * 2^(1/2 - n/2 + n^2) / (sqrt(Pi)*exp(1/8)*n), where c = Sum_{m = -oo..+oo} 1/(2^m * exp(m*(2*m+1))) = 1.77058122254033174512511... if n is even and c = Sum_{m = -oo..+oo} 1/(2^(m + 1/2) * exp((m+1)*(2*m+1))) = 1.81629595919505881855931... if n is odd. - Vaclav Kotesovec, Oct 12 2021