|
|
A001309
|
|
Order of real Clifford group L_n connected with Barnes-Wall lattices in dimension 2^n.
|
|
13
|
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MAPLE
|
2^(n^2+n+2) * (2^n - 1) * product('2^(2*i)-1', 'i'=1..n-1);
|
|
MATHEMATICA
|
a[0] = 2; a[n_] := 2^(n^2+n+2) * (2^n-1) * Product[2^(2*i)-1, {i, 1, n-1}]; Table[a[n], {n, 0, 8}] (* Jean-François Alcover, Jul 16 2015, after Maple *)
|
|
PROG
|
(Python)
from math import prod
def A001309(n): return 2 if n == 0 else ((1<<n)-1)*prod((1<<i)-1 for i in range(2, 2*n-1, 2)) << n*(n+1)+2 # Chai Wah Wu, Jun 20 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|