%I #16 Sep 08 2022 08:45:06
%S 1,4,36,560,12650,376992,13983816,621216192,32164253550,1902231808400,
%T 126524771308936,9349109217266832,759825846558448488,
%U 67362990324409227840,6469590128756692755600,669128737063722082963200,74148585178960981066746390,8764445804610791475090220464,1100718583140907766992803808200
%N Binomial((n+1)^2,n).
%C Previous name was: Binomial(binomial(n+1,n)^2,n).
%H Edward Jiang, <a href="/A070780/b070780.txt">Table of n, a(n) for n = 0..100</a>
%F a(n)=b(n-1), b(n)=sum(i=1..n, (binomial(i*n,i-1)*binomial(n^2-i*n,n-i))/i), n>0. [_Vladimir Kruchinin_, Nov 01 2013]
%p A070780:=n->binomial((n+1)^2,n): seq(A070780(n),n=0..20); # _Wesley Ivan Hurt_, Aug 05 2014
%t Table[Binomial[(n + 1)^2, n], {n, 0, 20}] (* _Wesley Ivan Hurt_, Aug 05 2014 *)
%o (Maxima)
%o b(n):=sum((binomial(i*n,i-1)*binomial(n^2-i*n,n-i))/i,i,1,n);
%o makelist(b(n),n,1,10); [_Vladimir Kruchinin_, Nov 01 2013]
%o (PARI) a(n) = binomial((n+1)^2,n); \\ _Joerg Arndt_, Nov 01 2013
%o (Magma) [Binomial((n+1)^2,n) : n in [0..20]]; // _Wesley Ivan Hurt_, Aug 05 2014
%K nonn
%O 0,2
%A _Karol A. Penson_, May 06 2002
%E New name and more terms from _Joerg Arndt_, Nov 01 2013
|