login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A015164 Theta series of 17-dimensional lattice Q'_17(6)^{+3}. 8
1, 0, 0, 0, 102, 0, 1326, 9792, 0, 31552, 122196, 0, 240618, 992256, 0, 1452480, 4163742, 0, 5030028, 17109888, 0, 18128256, 45317988, 0, 43527174, 134013312, 0, 119299200, 276648888, 0, 232127928, 672628800, 0, 537564480, 1186603368, 0, 910537442, 2535618816, 0, 1881950592, 4014830772, 0, 2894860164, 7826947968, 0, 5501926784, 11452412304, 0, 7880557842, 20846939520, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,5

LINKS

Table of n, a(n) for n=0..50.

J. H. Conway and N. J. A. Sloane, Low-Dimensional Lattices II: Subgroups of GL(n,Z), Proc. Royal Soc. London, A 419 (1988), 29-68.

Gheorghe Coserea, Gram matrix.

G. Nebe and N. J. A. Sloane, Home page for this lattice

W. Plesken, Finite Unimodular Groups of Prime Degree and Circulants, J. Algebra, vol. 97 (1985), pp. 286-312.

EXAMPLE

1 + 102*q^8 + 1326*q^12 + 9792*q^14 + 31552*q^18 + 122196*q^20 + 240618*q^24 + 992256*q^26 + 1452480*q^30 + ...

PROG

(PARI) \\ system("wget https://oeis.org/A015164/a015164.txt");

g = matconcat(read("a015164.txt")~);

seq(N, g, flag=0) = concat(1, 2*Vec(qfrep(g, N, flag)));

seq(22, g, 1) \\ Gheorghe Coserea, Nov 28 2018

(PARI)

GramMatrix()={my(p=[8 , -1 , -1 , -1 , -1 , -1 , 2 , 2 , -1 , -1 , 2 , 2 , -1 , -1 , -1 , -1 , -1]); 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

Cf. A015158, A015159, A015160, A015161, A015162, A015163, A015165.

Sequence in context: A259199 A006064 A230304 * A325776 A325775 A204749

Adjacent sequences:  A015161 A015162 A015163 * A015165 A015166 A015167

KEYWORD

nonn

AUTHOR

N. J. A. Sloane

EXTENSIONS

More terms from Gheorghe Coserea, Nov 28 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 20 20:15 EDT 2022. Contains 353876 sequences. (Running on oeis4.)