OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..36
FORMULA
a(n) = Sum_{k=0..n} C(n,k)^2 * 2^(n*k).
a(n) ~ 2^(n^2). - Vaclav Kotesovec, Feb 12 2015
MATHEMATICA
Table[Sum[Binomial[n, k]^2 * 2^(n*k), {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Feb 11 2015 *)
PROG
(PARI) {a(n)=polcoeff((1+(2^n+1)*x+2^n*x^2+x*O(x^n))^n, n)}
(PARI) {a(n)=sum(k=0, n, binomial(n, k)^2*2^(n*k))}
(Magma) /*1*/ P<x>:=PolynomialRing(Integers()); [ Coefficients((1+(2^n+1)*x+2^n*x^2)^n)[n+1]: n in [0..10] ]; /*2*/ &cat[ [&+[ Binomial(n, k)^2*2^(n*k): k in [0..n]]]: n in [0..10] ]; // Bruno Berselli, Mar 30 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Mar 29 2011
STATUS
approved