|
|
A015163
|
|
Theta series of 17-dimensional lattice Q'_17(6)^{+2}.
|
|
8
|
|
|
1, 0, 0, 136, 1326, 8160, 31552, 88128, 240618, 658784, 1452480, 2622216, 5030028, 10390944, 18128256, 26822464, 43527174, 77769696, 119299200, 157895592, 232127928, 379052672, 537564480, 662425536, 910537442, 1402281312, 1881950592, 2201578336, 2894860164, 4268628192, 5501926784
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
PROG
|
(PARI) \\ system("wget https://oeis.org/A015163/a015163.txt");
g = matconcat(read("a015163.txt")~);
seq(N, g, flag=0) = concat(1, 2*Vec(qfrep(g, N, flag)));
(PARI)
GramMatrix()={my(p=[3, -1, 0, 0, 1, -1, 0, 1, 0, 0, 1, 0, -1, 1, 0, 0, -1]); matrix(#p, #p, i, j, p[(i-j) %#p + 1])}
a(n)={if(n==0, 1, 2*qfrep(GramMatrix(), n, 0)[n])} \\ Andrew Howroyd, Nov 29 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|