|
|
A015160
|
|
Theta series of 17-dimensional lattice Q_17(6)^{+3}.
|
|
8
|
|
|
1, 0, 0, 0, 0, 1020, 2040, 0, 34782, 41956, 0, 376992, 362406, 0, 2306832, 1933920, 0, 9891384, 7591792, 0, 33439476, 24124428, 0, 95442624, 65640978, 0, 239451936, 158815904, 0, 542842980, 350243520, 0, 1135694622, 715382916, 0, 2225152032, 1373241708, 0, 4123291248, 2505490464, 0, 7286817984, 4367865216, 0, 12375237108, 7321237204, 0, 20304913152, 11884992774, 0, 32294964192, 18736213536
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
EXAMPLE
|
1 + 1020*q^10 + 2040*q^12 + 34782*q^16 + 41956*q^18 + 376992*q^22 + 362406*q^24 + 2306832*q^28 + 1933920*q^30 + ...
|
|
PROG
|
(PARI) \\ system("wget https://oeis.org/A015160/a015160.txt");
g = matconcat(read("a015160.txt")~);
seq(N, g, flag=0) = concat(1, 2*Vec(qfrep(g, N, flag)));
(PARI)
GramMatrix()={my(p=[10, -2, -5, 1, 4, 1, -5, 1, 1, 1, 1, -5, 1, 4, 1, -5, -2]); matrix(#p, #p, i, j, p[(i-j) %#p + 1])}
a(n)={if(n==0, 1, 2*qfrep(GramMatrix(), n, 1)[n])} \\ Andrew Howroyd, Nov 29 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|