

A005884


Theta series of f.c.c. lattice with respect to edge.
(Formerly M0940)


4



2, 4, 4, 8, 6, 4, 12, 8, 8, 12, 8, 8, 14, 16, 4, 16, 16, 8, 20, 8, 8, 20, 20, 16, 18, 8, 12, 24, 16, 12, 20, 24, 8, 28, 16, 8, 32, 20, 16, 16, 18, 20, 24, 24, 16, 24, 24, 8, 40, 20, 12, 40, 16, 12, 20, 24, 16, 40, 36, 16, 22, 24, 24, 32, 16, 12, 40, 32, 24, 28, 16, 24, 40, 28, 12
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


REFERENCES

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).


LINKS

G. C. Greubel, Table of n, a(n) for n = 0..1000
N. J. A. Sloane and B. K. Teo, Theta series and magic numbers for closepacked spherical clusters, J. Chem. Phys. 83 (1985) 65206534.
Index entries for sequences related to f.c.c. lattice


FORMULA

a(n) = 2*A045828(n).


MATHEMATICA

QP = QPochhammer; s = 2 QP[q^2]^3*QP[q^4]^2/QP[q]^2 + O[q]^75; CoefficientList[s, q] (* JeanFrançois Alcover, Jul 04 2017 *)


PROG

(PARI) A045828(n)={ if(n<0, 0, A=x*O(x^n) ; polcoeff( eta(x^2+A)^3*eta(x^4+A)^2/eta(x+A)^2, n) ; ) ; }
A005884(n)={ 2*A045828(n) ; }
{ for(n=0, 100, print1(A005884(n), ", ") ; ) ; } \\ R. J. Mathar, Jun 06 2007


CROSSREFS

Cf. A045828.
Sequence in context: A140434 A308605 A107748 * A229913 A285326 A079890
Adjacent sequences: A005881 A005882 A005883 * A005885 A005886 A005887


KEYWORD

nonn


AUTHOR

N. J. A. Sloane


EXTENSIONS

More terms from R. J. Mathar, Jun 06 2007


STATUS

approved



