cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A045826 a(n) = A005887(n) / 2.

Original entry on oeis.org

3, 4, 12, 0, 15, 12, 12, 0, 24, 12, 24, 0, 15, 16, 36, 0, 24, 24, 12, 0, 48, 12, 36, 0, 27, 24, 36, 0, 24, 36, 36, 0, 48, 12, 48, 0, 24, 28, 48, 0, 51, 36, 24, 0, 72, 24, 24, 0, 24, 36, 84, 0, 48, 36
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Examples

			3 + 4*x + 12*x^2 + 15*x^4 + 12*x^5 + 12*x^6 + 24*x^8 + 12*x^9 + ...
3*q + 4*q^3 + 12*q^5 + 15*q^9 + 12*q^11 + 12*q^13 + 24*q^17 + 12*q^19 + ...

Links

Crossrefs

Cf. A005875, A005887.

Programs

  • Mathematica
    A005887[n_]:= SeriesCoefficient[(EllipticTheta[3,0,q]^3 - EllipticTheta[3,0,-q]^3)/(2 q), {q, 0, n}];  Table[A005887[n]/2, {n,0, 50}][[1;; ;; 2]] (* G. C. Greubel, Feb 09 2018 *)
  • PARI
    {a(n) = if( n<0, 0, n = 2*n + 1; polcoeff( sum( k=1, sqrtint(n), 2 * x^k^2, 1 + x*O(x^n))^3 / 2, n))} /* Michael Somos, Mar 12 2011 */

Formula

Expansion of q^(-1) * (phi^3(q) - phi^3(-q)) / 4 in powers of q^2 where phi() is a Ramanujan theta function. - Michael Somos, Mar 12 2011
A005875(2*n + 1) = 2 * a(n). - Michael Somos, Mar 12 2011

A119874 Sizes of successive clusters in f.c.c. lattice centered at an octahedral hole.

Original entry on oeis.org

6, 14, 38, 38, 68, 92, 116, 116, 164, 188, 236, 236, 266, 298, 370, 370, 418, 466, 490, 490, 586, 610, 682, 682, 736, 784, 856, 856, 904, 976, 1048, 1048, 1144, 1168, 1264, 1264, 1312, 1368, 1464, 1464, 1566, 1638, 1686, 1686, 1830, 1878, 1926, 1926, 1974
Offset: 0

Views

Author

Hugo Pfoertner, Jun 05 2006

Keywords

References

  • 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.

Links

Crossrefs

Cf. A005887.
Cf. A119869, Properties of Waterman polyhedra of void center type: A119875 [vertices], A119876 [faces], A119877 [edges], A119878 [volume].

Programs

  • Maple
    maxd:=20001: read format: temp0:=trunc(evalf(sqrt(maxd)))+2: a:=0: for i from -temp0 to temp0 do a:=a+q^( (i+1/2)^2): od: th2:=series(a,q,maxd): a:=0: for i from -temp0 to temp0 do a:=a+q^(i^2): od: th3:=series(a,q,maxd): th4:=series(subs(q=-q,th3),q,maxd):
t1:=series((th3^3-th4^3)/(2*q),q,maxd): t1:=series(subs(q=sqrt(q),t1),q,floor(maxd/2)): t2:=seriestolist(t1): t4:=0; for n from 1 to nops(t2) do t4:=t4+t2[n]; lprint(n-1, t4); od: # N. J. A. Sloane, Aug 09 2006

Formula

Partial sums of A005887, which has an explicit generating function.

Extensions

Edited by N. J. A. Sloane, Aug 09 2006

A212885 Expansion of phi(q) * phi(-q)^2 in powers of q where phi() is a Ramanujan theta function.

Original entry on oeis.org

1, -2, -4, 8, 6, -8, -8, 0, 12, -10, -8, 24, 8, -8, -16, 0, 6, -16, -12, 24, 24, -16, -8, 0, 24, -10, -24, 32, 0, -24, -16, 0, 12, -16, -16, 48, 30, -8, -24, 0, 24, -32, -16, 24, 24, -24, -16, 0, 8, -18, -28, 48, 24, -24, -32, 0, 48, -16, -8, 72, 0, -24, -32
Offset: 0

Views

Author

Michael Somos, May 29 2012

Keywords

Comments

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

Examples

			G.f. = 1 - 2*q - 4*q^2 + 8*q^3 + 6*q^4 - 8*q^5 - 8*q^6 + 12*q^8 - 10*q^9 + ...

Links

Crossrefs

Cf. A004015, A004024, A005875, A005877, A005878, A005887, A008443, A045828, A045834, A213624.

Programs

  • Mathematica
    a[n_]:= SeriesCoefficient[EllipticTheta[3, 0, q]* EllipticTheta[3, 0, -q]^2, {q, 0, n}]; Table[a[n], {n, 0, 50}] (* G. C. Greubel, Nov 30 2017 *)
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^3 * eta(x + A)^2 / eta(x^4 + A)^2, n))};

Formula

Expansion of phi(-x) * phi(-x^2)^2 = phi(-x^2)^4 / phi(x) in powers of x where phi() is a Ramanujan theta function.
Expansion of eta(q^2)^3 * eta(q)^2 / eta(q^4)^2 in powers of q.
Euler transform of period 4 sequence [-2, -5, -2, -3, ...].
G.f. is a period 1 Fourier series which satisfies f(-1 / (8 t)) = 32 (t/i)^(3/2) g(t) where q = exp(2 Pi i t) and g() is the g.f. for A045828.
G.f.: Product_{k>0} (1 - x^(2*k))^3 * (1 - x^k)^2 / (1 - x^(4*k))^2.
a(4*n) = A005875(n). a(4*n + 1) = -2 * A045834(n). a(4*n + 2) = - A005877(n) = -4 * A045828(n).
a(8*n) = A004015(n). a(8*n + 3) = A005878(n) = 8 * A008443(n). a(8*n + 4)= A005887(n). a(8*n + 5) = -2 * A004024(n). a(8*n + 6) = -8 * A213624(n). a(8*n + 7) = 0.

A005927 Theta series of diamond with respect to deep hole.

Original entry on oeis.org

0, 0, 0, 4, 6, 0, 0, 0, 0, 0, 0, 12, 8, 0, 0, 0, 0, 0, 0, 12, 24, 0, 0, 0, 0, 0, 0, 16, 0, 0, 0, 0, 0, 0, 0, 24, 30, 0, 0, 0, 0, 0, 0, 12, 24, 0, 0, 0, 0, 0, 0, 24, 24, 0, 0, 0, 0, 0, 0, 36, 0, 0, 0, 0, 0, 0, 0, 12, 48, 0, 0, 0, 0, 0, 0, 28, 24, 0, 0, 0, 0, 0, 0, 36, 48, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Comments

Ramanujan theta functions: f(q) := Prod_{k>=1} (1-(-q)^k) (see A121373), phi(q) := theta_3(q) := Sum_{k=-oo..oo} q^(k^2) (A000122), psi(q) := Sum_{k=0..oo} q^(k*(k+1)/2) (A010054), chi(q) := Prod_{k>=0} (1+q^(2k+1)) (A000700).

Examples

			4*q^3 + 6*q^4 + 12*q^11 + 8*q^12 + 12*q^19 + 24*q^20 + 16*q^27 + ... - _Michael Somos_, Aug 17 2009

References

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

Links

Programs

  • Mathematica
    a[n_]:= SeriesCoefficient[4*q^3*QPochhammer[-q^8, q^8]^3* QPochhammer[q^16, q^16]^3 + (EllipticTheta[3, 0, q^4]^3 - EllipticTheta[3, 0, -q^4]^3)/2, {q, 0, n}]; Table[a[n], {n,0,50}] (* G. C. Greubel, Apr 01 2018 *)
  • PARI
    {a(n) = if( n<0, 0, if( n%8 == 3, n \= 8; polcoeff( 4 * sum(k=0, (sqrtint(8*n+1)-1)\2, x^((k^2+k)/2), x*O(x^n))^3, n), if( n%8 == 4, n /= 4; polcoeff( sum(k=1, sqrtint(n), 2*x^k^2, 1 + x*O(x^n))^3, n), 0 )))} /* Michael Somos, Aug 17 2009 */

Formula

Expansion of 4 * q^3 * psi^3(q^8) + (phi^3(q^4) - phi^3(-q^4)) / 2 in powers of q where phi(), psi() are Ramanujan theta functions. - Michael Somos, Aug 17 2009
a(8*n + 0) = a(8*n + 1) = a(8*n + 2) = a(8*n + 5) = a(8*n + 6) = a(8*n + 7) = 0. - Michael Somos, Aug 17 2009
4 * A008443(n) = a(8*n + 3). A005887(n) = a(8*n + 4). - Michael Somos, Aug 17 2009

A319078 Expansion of phi(-q) * phi(q)^2 in powers of q where phi() is a Ramanujan theta function.

Original entry on oeis.org

1, 2, -4, -8, 6, 8, -8, 0, 12, 10, -8, -24, 8, 8, -16, 0, 6, 16, -12, -24, 24, 16, -8, 0, 24, 10, -24, -32, 0, 24, -16, 0, 12, 16, -16, -48, 30, 8, -24, 0, 24, 32, -16, -24, 24, 24, -16, 0, 8, 18, -28, -48, 24, 24, -32, 0, 48, 16, -8, -72, 0, 24, -32, 0, 6, 32
Offset: 0

Views

Author

Michael Somos, Sep 09 2018

Keywords

Comments

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

Examples

			G.f. = 1 + 2*x - 4*x^2 - 8*x^3 + 6*x^4 + 8*x^5 - 8*x^6 + 12*x^8 + ...

Links

Crossrefs

Cf. A004015, A004024, A005887, A008443, A045834, A083703, A080965, A132429, A212885, A213624.

Programs

  • Magma
    A := Basis( ModularForms( Gamma0(16), 3/2), 66); A[1] + 2*A[2] - 4*A[3] - 8*A[4];
  • Mathematica
    a[ n_] := SeriesCoefficient[ EllipticTheta[ 4, 0, q] EllipticTheta[ 3, 0, q]^2, {q, 0, n}];
a[ n_] := SeriesCoefficient[ EllipticTheta[ 3, 0, q] EllipticTheta[ 4, 0, q^2]^2, {q, 0, n}];
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^2 + A)^9 / (eta(x + A)^2 * eta(x^4 + A)^4), n))};

Formula

Expansion of eta(q^2)^9 / (eta(q)^2 * eta(q^4)^4) in powers of q.
Expansion of phi(q) * phi(-q^2)^2 = phi(-q^2)^4 / phi(-q) in powers of q.
Euler transform of period 4 sequence [2, -7, 2, -3, ...].
G.f. is a period 1 Fourier series which satisfies f(-1 / (16 t)) = 2^(11/2) (t/i)^(3/2) g(t) where q = exp(2 Pi i t) and g() is the g.f. for A045834.
G.f. Product_{k>0} (1 - x^k)^3 * (1 + x^k)^5 / (1 + x^(2*k))^4.
a(n) = (-1)^n * A212885(n) = A083703(2*n) = A080965(2*n).
a(4*n) = a(n) * -A132429(n + 2) where A132429 is a period 4 sequence.
a(4*n) = A005875(n). a(4*n + 1) = 2 * A045834(n). a(4*n + 2) = -4 * A045828(n).
a(8*n) = A004015(n). a(8*n + 1) = 2 * A213022(n). a(8*n + 2) = -4 * A213625(n). a(8*n + 3) = -8 * A008443(n). a(8*n + 4) = A005887(n). a(8*n + 5) = 2 * A004024(n). a(8*n + 6) = -8 * A213624(n). a(8*n + 7) = 0.
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.