%I #20 Oct 12 2021 14:00:03
%S 1,1,2,21,497,18508,3297933,2348121769,2319121509374,4535739243360613,
%T 58887253765506968848,1694438232474931034462251,
%U 64598311562133275526222276162,8312693334404799592869803398802772,5827069387752679429926992257426553147833
%N a(n) = Sum_{k=0..floor(n/2)} binomial(n*(n-k), n*k).
%H G. C. Greubel, <a href="/A238696/b238696.txt">Table of n, a(n) for n = 0..69</a>
%H Vaclav Kotesovec, <a href="/A238696/a238696.jpg">Limits, graph for 500 terms</a>
%F Maximum is at k = n*(1-1/sqrt(5))/2 = 0.2763932... * n.
%F Limit n->infinity a(n)^(1/n^2) = (1+sqrt(5))/2.
%F Lim sup n->infinity a(n) / (5^(1/4)/(n*sqrt(2*Pi))*((1+sqrt(5))/2)^(n^2+1)) = JacobiTheta3(0,exp(-5*sqrt(5)/2)) = EllipticTheta[3,0,Exp[-5*Sqrt[5]/2]] = 1.007468786736926147579...
%F Lim inf n->infinity a(n) / (5^(1/4)/(n*sqrt(2*Pi))*((1+sqrt(5))/2)^(n^2+1)) = JacobiTheta2(0,exp(-5*sqrt(5)/2)) = EllipticTheta[2,0,Exp[-5*Sqrt[5]/2]] = 0.494414344263155315970...
%F a(n) = [x^(n^2)] (1-x)^(n-1)/((1-x)^n - x^(2*n)) for n > 0. - _Seiichi Manyama_, Oct 11 2021
%t Table[Sum[Binomial[n*(n-k), n*k], {k, 0, Floor[n/2]}], {n, 0, 20}]
%o (PARI) a(n)=sum(k=0,n\2, binomial(n*(n-k), n*k)) \\ _Charles R Greathouse IV_, Jul 29 2016
%Y Cf. A206849, A207136, A209331.
%K nonn,nice
%O 0,3
%A _Vaclav Kotesovec_, Mar 03 2014