|
|
A006088
|
|
a(n) = (2^n + 2) a(n-1) (kissing number of Barnes-Wall lattice in dimension 2^n).
(Formerly M3606)
|
|
4
|
|
|
1, 4, 24, 240, 4320, 146880, 9694080, 1260230400, 325139443200, 167121673804800, 171466837323724800, 351507016513635840000, 1440475753672879672320000, 11803258325595576034990080000, 193408190923209108909347450880000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (2+2)(2+4)(2+8)(2+16)...(2+2^n).
G.f.: Sum_{n>=0} 2^(n*(n+1)/2) * x^n/[Product_{k=1..n+1} (1-2^k*x)];
contrast with:
1 = Sum_{n>=0} 2^(n*(n+1)/2) * x^n/[Product_{k=1..n+1} (1+2^k*x)]. (End)
|
|
MAPLE
|
a[0]:=1: for n from 1 to 16 do a[n]:=(2^n+2)*a[n-1] od: seq(a[n], n=0..16); # Emeric Deutsch, Dec 10 2004
|
|
MATHEMATICA
|
RecurrenceTable[{a[0]==1, a[n]==(2^n + 2) a[n-1]}, a[n], {n, 0, 25}] (* Vincenzo Librandi, Dec 31 2015 *)
|
|
PROG
|
(PARI) {a(n)=polcoeff(sum(m=0, n, 2^(m*(m+1)/2)*x^m/prod(k=1, m+1, 1-2^k*x+x*O(x^n))), n)} \\ Paul D. Hanna, Sep 16 2009
(Magma) I:=[4]; [1] cat [n le 1 select I[n] else (2^n + 2)*Self(n-1): n in [1..20]]; // Vincenzo Librandi, Dec 31 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Replaced arXiv URL with non-cached version - R. J. Mathar, Oct 23 2009
|
|
STATUS
|
approved
|
|
|
|