login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A005890 Theta series of hexagonal close-packing with respect to center of triangle between two layers.
(Formerly M2195)
1
0, 0, 0, 3, 0, 0, 1, 0, 0, 3, 0, 1, 2, 0, 0, 4, 0, 2, 2, 2, 2, 2, 1, 2, 1, 1, 0, 4, 0, 0, 0, 2, 1, 6, 2, 4, 1, 2, 1, 2, 0, 5, 2, 3, 1, 6, 0, 4, 0, 4, 2, 2, 2, 4, 0, 2, 0, 5, 2, 2, 2, 4, 0, 2, 1, 4, 3, 5, 2, 2, 0, 2, 2, 9, 2, 6, 3, 6, 0, 4, 2, 2, 3, 8, 2, 2, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

The triangle separates a tetrahedron and an octahedron.

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

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 close-packed spherical clusters, J. Chem. Phys. 83 (1985) 6520-6534. See page 6530 equation 66.

M. Somos, Introduction to Ramanujan theta functions

Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

FORMULA

Expansion of x^3 * ( f(x^3, x^15) * (f(x^16, x^32) * f(x^15, x^39) + x^6 * f(x^8, x^40) * f(x^3, x^51)) + f(x^6, x^12) * (f(x^16, x^32) * f(x^12, x^42) + f(x^8, x^40) * f(x^24, x^30)) ) in powers of x where f(, ) is Ramanujan's general theta function. - Michael Somos, Feb 11 2018

G.f.: Sum{i, j, k in Z} x^(9*(i*i + i*j + j*j) + 24*k*k) * (x^(6 - 12*(i+j) - 8*k) + x^(3 - 3*(i+j) + 16*k)). - Michael Somos, Feb 11 2018

EXAMPLE

G.f. = 3*x^3 + x^6 + 3*x^9 + x^11 + 2*x^12 + 4*x^15 + 2*x^17 + 2*x^18 + 2*x^19 + ...

MATHEMATICA

f[x_, y_]:= QPochhammer[-x, x*y]*QPochhammer[-y, x*y]*QPochhammer[x*y, x*y]; a[n_] := SeriesCoefficient[x^3*(f[x^3, x^15]*(f[x^16, x^32]* f[x^15, x^39] + x^6*f[x^8, x^40]*f[x^3, x^51]) + f[x^6, x^12]*(f[x^16, x^32]*f[x^12, x^42] + f[x^8, x^40]*f[x^24, x^30])), {x, 0, n}]; Table[a[n], {n, 0, 50}] (* G. C. Greubel, Apr 02 2018 *)

CROSSREFS

Cf. A004012, A005872, A005873, A005874, A005889.

Sequence in context: A204814 A174903 A167163 * A104515 A171913 A074936

Adjacent sequences:  A005887 A005888 A005889 * A005891 A005892 A005893

KEYWORD

nonn

AUTHOR

N. J. A. Sloane

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified May 23 03:56 EDT 2018. Contains 304451 sequences. (Running on oeis4.)