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.

A375106 Expansion of Sum_{k in Z} x^k / (1 - x^(7*k+3)).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 0, 1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 2, 1, 0, 2, 1, 0, 2, 1, 1, 1, 1, 1, 2, 0, 1, 0, 1, 1, 3, 1, 1, 0, 1, 2, 1, 1, 1, 1, 0, 0, 2, 1, 1, 2, 1, 1, 2, 0, 1, 1, 1, 0, 2, 2, 1, 0, 0, 1, 3, 1, 1, 0, 2, 0, 1, 1, 1, 1, 1, 1, 2, 0, 1, 3, 1, 1, 2, 0, 0, 0, 1, 1, 2, 1, 1, 1, 1, 0
Offset: 0

Views

Author

Seiichi Manyama, Jul 30 2024

Keywords

Crossrefs

Programs

  • PARI
    my(N=100, x='x+O('x^N)); Vec(sum(k=-N, N, x^k/(1-x^(7*k+3))))
    
  • PARI
    my(N=100, x='x+O('x^N)); Vec(prod(k=1, N, (1-x^(7*k))^2/((1-x^(7*k-1))*(1-x^(7*k-6)))))

Formula

G.f.: Product_{k>0} (1-x^(7*k))^2 / ((1-x^(7*k-1)) * (1-x^(7*k-6))).
G.f.: Sum_{k in Z} x^(3*k) / (1 - x^(7*k+1)).

A375148 Expansion of Sum_{k in Z} x^k / (1 - x^(7*k+2)).

Original entry on oeis.org

1, 1, 2, 1, 1, 1, 2, 1, 2, 0, 2, 1, 2, 1, 1, 1, 1, 1, 3, 1, 2, 1, 0, 1, 1, 1, 3, 1, 2, 0, 2, 1, 2, 1, 1, 0, 2, 2, 2, 0, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 0, 2, 2, 1, 1, 0, 2, 0, 2, 1, 2, 1, 4, 1, 2, 0, 0, 1, 3, 1, 0, 1, 1, 1, 2, 1, 2, 1, 3, 1, 1, 1, 2, 0, 1, 0, 3, 2, 1, 1, 0, 2, 2, 1, 4, 0, 0
Offset: 0

Views

Author

Seiichi Manyama, Aug 01 2024

Keywords

Crossrefs

Programs

  • PARI
    my(N=110, x='x+O('x^N)); Vec(sum(k=-N, N, x^k/(1-x^(7*k+2))))
    
  • PARI
    my(N=110, x='x+O('x^N)); Vec(prod(k=1, N, (1-x^(7*k))^3*((1-x^(7*k-3))*(1-x^(7*k-4)))^2/(1-x^k)))

Formula

G.f.: Product_{k>0} (1-x^(7*k))^3 * ((1-x^(7*k-3)) * (1-x^(7*k-4)))^2 / (1-x^k).
G.f.: Sum_{k in Z} x^(2*k) / (1 - x^(7*k+1)).

A375149 Expansion of Sum_{k in Z} x^k / (1 - x^(7*k+4)).

Original entry on oeis.org

1, 1, 0, 1, 2, 0, 1, 1, 0, 1, 1, 0, 3, 1, -1, 1, 2, 0, 0, 1, 1, 1, 1, 1, 2, 1, -1, 1, 2, 0, 1, 0, 0, 1, 2, 0, 3, 1, -1, 1, 2, 0, 1, 1, 0, 2, 1, 0, 0, 1, -1, 1, 3, 1, 1, 1, 2, 0, 0, 0, 3, 1, -1, 1, 2, -1, 1, 2, 0, 1, 0, 0, 2, 1, 0, 1, 3, 0, 2, 1, 0, 1, 0, 0, 3, 1, -1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, -1, 0, 5
Offset: 0

Views

Author

Seiichi Manyama, Aug 01 2024

Keywords

Crossrefs

Programs

  • PARI
    my(N=110, x='x+O('x^N)); Vec(sum(k=-N, N, x^k/(1-x^(7*k+4))))
    
  • PARI
    my(N=110, x='x+O('x^N)); Vec(prod(k=1, N, (1-x^(7*k))^3*((1-x^(7*k-2))*(1-x^(7*k-5)))^2/(1-x^k)))

Formula

G.f.: Product_{k>0} (1-x^(7*k))^3 * ((1-x^(7*k-2)) * (1-x^(7*k-5)))^2 / (1-x^k).
G.f.: Sum_{k in Z} x^(4*k) / (1 - x^(7*k+1)).

A108483 Expansion of f(-x^2, -x^5) / f(-x, -x^6) in powers of x where f() is a Ramanujan theta function.

Original entry on oeis.org

1, 1, 0, 0, 0, -1, 0, 1, 1, 0, -1, -1, -1, 0, 2, 2, 0, -1, -2, -2, 0, 3, 3, 0, -2, -3, -3, 0, 5, 5, 1, -3, -5, -5, 0, 7, 7, 1, -5, -8, -7, 1, 11, 12, 2, -7, -12, -11, 1, 15, 16, 3, -11, -18, -15, 2, 23, 24, 5, -15, -26, -22, 3, 31, 33, 7, -22, -37, -30, 5, 44, 47, 11, -30, -52, -42, 6, 59, 63, 15, -42, -72, -56, 10, 82, 88, 22
Offset: 0

Views

Author

Michael Somos, Jun 04 2005

Keywords

Comments

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
In Duke (2005) page 157 the g.f. is denoted by t(tau).

Examples

			G.f. = 1 + x - x^5 + x^7 + x^8 - x^10 - x^11 - x^12 + 2*x^14 + 2*x^15 + ...
G.f. = q^-2 + q^5 - q^33 + q^47 + q^54 - q^68 - q^75 - q^82 + 2*q^96 + ...
		

References

  • W. Duke, Continued fractions and modular functions, Bull. Amer. Math. Soc. 42 (2005), 137-162.

Crossrefs

Programs

  • Mathematica
    a[ n_] := SeriesCoefficient[ QPochhammer[ x^2, x^7] QPochhammer[ x^5, x^7] / (QPochhammer[ x, x^7] QPochhammer[ x^6, x^7]), {x, 0, n}]; (* Michael Somos, Oct 03 2013 *)
    a[ n_] := SeriesCoefficient[ Product[ (1 - x^k)^{-1, 1, 0, 0, 1, -1, 0}[[Mod[k, 7, 1]]], {k, n}], {x, 0, n}]; (* Michael Somos, May 03 2015 *)
  • PARI
    {a(n) = if( n<0, 0, polcoeff( prod(k=1, n, (1 - x^k + x*O(x^n))^[ 0, -1, 1, 0, 0, 1, -1][k%7 + 1]), n))};

Formula

Euler transform of period 7 sequence [ 1, -1, 0, 0, -1, 1, 0, ...]. - Michael Somos, Oct 03 2013
Given g.f. A(x), then B(q) = q^-2*A(q^7) satisfies 0 = f(B(q), B(q^2)) where f(u, v) = v^3 - u^6 + 3*u^4*v + u^7*v^3 + u^2*v^9 + u^8*v^6 - 3*u^2*v^2 - 2*u*v^6 - 5*u^3*v^5 - u^5*v^4 - u^9*v^2 - u^4*v^8 - u^6*v^7.
G.f.: Product_{k>0} (1 - x^(7*k - 2)) * (1 - x^(7*k - 5)) / ((1 - x^(7*k - 1)) * (1 - x^(7*k - 6))).
a(n) = A229894(7*n). - Michael Somos, Oct 03 2013
G.f.: B(x) / C(x), where B(x) is the g.f. of A375106 and C(x) is the g.f. of A375150. - Seiichi Manyama, Aug 03 2024

A230322 Expansion of f(-x^3, -x^4) / f(-x^2,-x^5) in powers of x where f(,) is Ramanujan's two-variable theta function.

Original entry on oeis.org

1, 0, 1, -1, 0, 0, 0, 1, -1, 1, -1, 0, 0, -1, 2, -1, 2, -2, 0, 0, -1, 3, -3, 3, -3, 1, 0, -2, 5, -4, 5, -5, 1, 0, -3, 7, -7, 8, -7, 2, 0, -5, 11, -10, 12, -11, 3, 1, -7, 15, -16, 17, -15, 5, 1, -11, 22, -22, 25, -22, 7, 2, -15, 31, -33, 35, -30, 11, 2, -22
Offset: 0

Views

Author

Michael Somos, Oct 16 2013

Keywords

Comments

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

Examples

			G.f. = 1 + x^2 - x^3 + x^7 - x^8 + x^9 - x^10 - x^13 + 2*x^14 - x^15 + ...
G.f. = 1/q + q^13 - q^20 + q^48 - q^55 + q^62 - q^69 - q^90 + 2*q^97 - ...
		

Crossrefs

Programs

  • Mathematica
    a[ n_] := SeriesCoefficient[ QPochhammer[ x^3, x^7] QPochhammer[ x^4, x^7] / (QPochhammer[ x^2, x^7] QPochhammer[ x^5, x^7]), {x, 0, n}]
  • PARI
    {a(n) = if( n<0, 0, polcoeff( prod( k=1, n, (1 - x^k)^[ 0, 0, -1, 1, 1, -1, 0][k%7+1], 1 + x * O(x^n)), n))}

Formula

Euler transform of period 7 sequence [ 0, 1, -1, -1, 1, 0, 0, ...].
G.f.: Product_{k>0} (1 - x^(7*k - 3)) * (1 - x^(7*k - 4)) / ((1 - x^(7*k - 2)) * (1 - x^(7*k - 5))).
- a(n) = A229894(7*n + 1).
G.f.: B(x) / C(x), where B(x) is the g.f. of A375150 and C(x) is the g.f. of A375107. - Seiichi Manyama, Aug 03 2024
Showing 1-5 of 5 results.