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-4 of 4 results.

A205969 a(n) = Fibonacci(n)*A113973(n) for n>=1, with a(0)=1, where A113973 lists the coefficients in phi(x^3)^3/phi(x) and phi() is a Ramanujan theta function.

Original entry on oeis.org

1, -2, 4, -4, 6, 0, 32, -52, 84, -68, 0, 0, 288, -932, 3016, 0, 1974, 0, 10336, -16724, 0, -43784, 0, 0, 185472, -150050, 971144, -392836, 1271244, 0, 0, -5385076, 8713236, 0, 0, 0, 29860704, -96631268, 312705352, -252983944, 0, 0, 2143314368, -1733977748, 0
Offset: 0

Views

Author

Paul D. Hanna, Feb 04 2012

Keywords

Comments

Compare g.f. to the Lambert series of A113973: 1 - 2*Sum_{n>=1} Kronecker(n,3)*x^n/(1 - (-x)^n).

Examples

			G.f.: A(x) = 1 - 2*x + 4*x^2 - 4*x^3 + 6*x^4 + 32*x^6 - 52*x^7 + 84*x^8 +...
where A(x) = 1 - 1*2*x + 1*4*x^2 - 2*2*x^3 + 3*2*x^4 + 8*4*x^6 - 13*4*x^7 + 21*4*x^8 +...+ Fibonacci(n)*A113973(n)*x^n +...
The g.f. is also given by the identity:
A(x) = 1 - 2*( 1*x/(1+x-x^2) - 1*x^2/(1-3*x^2+x^4) + 3*x^4/(1-7*x^4+x^8) - 5*x^5/(1+11*x^5-x^10) + 13*x^7/(1+29*x^7-x^14) - 21*x^8/(1-47*x^8+x^16) +...).
The values of the symbol Kronecker(n,3) repeat [1,-1,0, ...].

Links

Crossrefs

Cf. A113973, A205966, A205968, A205970, A203847, A000204 (Lucas).
Cf. A209449 (Pell variant).

Programs

  • Mathematica
    A113973:= CoefficientList[Series[EllipticTheta[3, q^3]^3/EllipticTheta[3, 0, q], {q, 0, 75}], q]; Table[If[n == 1, 1, Fibonacci[n-1]*A113973[[n]] ], {n, 1, 50}] (* G. C. Greubel, Jul 17 2018 *)
  • PARI
    {Lucas(n)=fibonacci(n-1)+fibonacci(n+1)}
{a(n)=polcoeff(1 - 2*sum(m=1,n,fibonacci(m)*kronecker(m,3)*x^m/(1-Lucas(m)*(-x)^m+(-1)^m*x^(2*m) +x*O(x^n))),n)}
for(n=0,60,print1(a(n),", "))

Formula

G.f.: 1 - 2*Sum_{n>=1} Fibonacci(n)*Kronecker(n,3)*x^n/(1 - Lucas(n)*(-x)^n + (-1)^n*x^(2*n)).

A209448 a(n) = Pell(n)*A008655(n) for n>=1, with a(0)=1, where A008655 lists the coefficients in (theta_3(x)*theta_3(3*x)+theta_2(x)*theta_2(3*x))^4.

Original entry on oeis.org

1, 24, 432, 4440, 21024, 87696, 559440, 1395264, 5728320, 23852760, 64719648, 183528288, 898460640, 1765134672, 6002425728, 21820957200, 52895150208, 134056553904, 598084104240, 1090757945760, 3530801969856, 11795485116480, 26821191064896, 65724336729792
Offset: 0

Views

Author

Paul D. Hanna, Mar 10 2012

Keywords

Comments

Compare g.f. to the Lambert series of A008655:
1 + Sum_{n>=1} 24*n^3*x^n/(1-x^n) + 8*(3*n)^3*x^(3*n)/(1-x^(3*n)).

Examples

			G.f.: A(x) = 1 + 24*x + 432*x^2 + 4440*x^3 + 21024*x^4 + 87696*x^5 +...
where A(x) = 1 + 1*24*x + 2*216*x^2 + 5*888*x^3 + 12*1752*x^4 + 29*3024*x^5 +...+ Pell(n)*A008655(n)*x^n +...

Links

Crossrefs

Cf. A008655, A205968, A209447, A209449, A204270, A000129 (Pell), A002203.

Programs

  • Mathematica
    A008655[n_]:= SeriesCoefficient[((EllipticTheta[3, 0, q]^3 + EllipticTheta[3, Pi/3, q]^3 + EllipticTheta[3, 2 Pi/3, q]^3)^4/(3* EllipticTheta[3, 0, q^3])^4), {q, 0, n}]; b:= Table[A008655[n], {n, 0, 102}][[1 ;; ;; 2]]; Join[{1}, Table[Fibonacci[n, 2]*b[[n + 1]], {n, 1, 50}]] (* G. C. Greubel, Jan 26 2018 *)
  • PARI
    {Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)),n)}
{A002203(n)=Pell(n-1)+Pell(n+1)}
{a(n)=polcoeff(1 + sum(m=1,n, 24*Pell(m)*m^3*x^m/(1-A002203(m)*x^m+(-1)^m*x^(2*m) +x*O(x^n)) + 8*Pell(3*m)*(3*m)^3*x^(3*m)/(1-A002203(3*m)*x^(3*m)+(-1)^m*x^(6*m) +x*O(x^n))  ),n)}
for(n=0,40,print1(a(n),", "))

Formula

G.f.: 1 + Sum_{n>=1} 24*Pell(n)*n^3*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) + 8*Pell(3*n)*(3*n)^3*x^(3*n)/(1 - A002203(3*n)*x^(3*n) + (-1)^n*x^(6*n)), where A002203(n) = Pell(n-1) + Pell(n+1).

A209450 a(n) = Pell(n)*A132973(n) for n>=1, with a(0)=1, where A132973 lists the coefficients in psi(-q)^3/psi(-q^3) and where psi() is a Ramanujan theta function.

Original entry on oeis.org

1, -3, 6, -15, 36, 0, 210, -1014, 1224, -2955, 0, 0, 41580, -200766, 484692, 0, 1412496, 0, 8232630, -39750654, 0, -231683790, 0, 0, 1630019160, -3935214363, 19000895772, -22936110135, 110745336312, 0, 0, -1558305137094, 1881040698144, 0, 0, 0, 63900011068740
Offset: 0

Views

Author

Paul D. Hanna, Mar 10 2012

Keywords

Comments

Compare g.f. to the Lambert series of A132973: 1 - 3*Sum_{n>=0} x^(6*n+1)/(1+x^(6*n+1)) - x^(6*n+5)/(1+x^(6*n+5)).

Examples

			G.f.: A(x) = 1 - 3*x + 6*x^2 - 15*x^3 + 36*x^4 + 210*x^6 - 1014*x^7 +...
where A(x) = 1 - 1*3*x + 2*3*x^2 - 5*3*x^3 + 12*3*x^4 + 70*3*x^6 - 169*6*x^7 + 408*3*x^8 +...+ Pell(n)*A132973(n)*x^n +...
The g.f. is also given by the identity:
A(x) = 1 - 3*( 1*x/(1+2*x-x^2) - 29*x^5/(1+82*x^5-x^10) + 169*x^7/(1+478*x^7-x^14) - 5741*x^11/(1+16238*x^11-x^22) + 33461*x^13/(1+94642*x^13-x^26) - 1136689*x^17/(1+3215042*x^17-x^34) +...).

Links

Crossrefs

Cf. A132973, A205970, A209449, A209451, A204270, A000129 (Pell), A002203.

Programs

  • Mathematica
    A132973[n_]:= SeriesCoefficient[EllipticTheta[2, Pi/4, q^(1/2)]^3/EllipticTheta[2, Pi/4, q^(3/2)]/2, {q, 0, n}]; Join[{1}, Table[ Fibonacci[n, 2]*A132973[n],{n,1,50}]] (* G. C. Greubel, Jan 02 2018 *)
  • PARI
    {Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)),n)}
{A002203(n)=Pell(n-1)+Pell(n+1)}
{a(n)=polcoeff(1 - 3*sum(m=0,n, Pell(6*m+1)*x^(6*m+1)/(1+A002203(6*m+1)*x^(6*m+1)-x^(12*m+2) +x*O(x^n)) - Pell(6*m+5)*x^(6*m+5)/(1+A002203(6*m+5)*x^(6*m+5)-x^(12*m+10) +x*O(x^n)) ),n)}
for(n=0,61,print1(a(n),", "))

Formula

G.f.: 1 - 3*Sum_{n>=0} Pell(6*n+1)*x^(6*n+1)/(1+A002203(6*n+1)*x^(6*n+1)-x^(12*n+2)) - Pell(6*n+5)*x^(6*n+5)/(1+A002203(6*n+5)*x^(6*n+5)-x^(12*n+10)), where A002203(n) = Pell(n-1) + Pell(n+1).

A209452 a(n) = Pell(n)*A122859(n) for n>=1, with a(0)=1, where A122859 lists the coefficients in phi(-q)^3/phi(-q^3) and phi() is a Ramanujan theta function.

Original entry on oeis.org

1, -6, 24, -30, -72, 0, 840, -2028, 4896, -5910, 0, 0, -83160, -401532, 1938768, 0, -2824992, 0, 32930520, -79501308, 0, -463367580, 0, 0, 6520076640, -7870428726, 76003583088, -45872220270, -221490672624, 0, 0, -3116610274188, 7524162792576, 0, 0, 0, -127800022137480
Offset: 0

Views

Author

Paul D. Hanna, Mar 10 2012

Keywords

Comments

Compare the g.f. to the Lambert series of A122859: 1 - 6*Sum_{n>=1} Kronecker(n,3)*x^n/(1+x^n).

Examples

			G.f.: A(x) = 1 - 6*x + 24*x^2 - 30*x^3 - 72*x^4 + 840*x^6 - 2028*x^7 + ...
where A(x) = 1 - 1*6*x + 2*12*x^2 - 5*6*x^3 - 12*6*x^4 + 70*12*x^6 - 169*12*x^7 + 408*12*x^8 - 985*6*x^9 + ... + Pell(n)*A122859(n)*x^n + ...
The g.f. is also given by the identity:
A(x) = 1 - 6*( 1*x/(1+2*x-x^2) - 2*x^2/(1+6*x^2+x^4) + 12*x^4/(1+34*x^4+x^8) - 29*x^5/(1+82*x^5-x^10) + 169*x^7/(1+478*x^7-x^14) - 408*x^8/(1+1154*x^8+x^16) + ...).
The values of the symbol Kronecker(n,3) repeat [1,-1,0, ...].

Links

Crossrefs

Cf. A122859, A205972, A209451, A209453, A209446, A209449, A204270, A000129 (Pell), A002203.

Programs

  • Mathematica
    A122859[n_]:= SeriesCoefficient[EllipticTheta[4, 0, q]^3/EllipticTheta[4, 0, q^3], {q, 0, n}]; Join[{1}, Table[Fibonacci[n, 2]*A122859[n], {n, 1, 50}]] (* G. C. Greubel, Jan 02 2017 *)
  • PARI
    {Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)),n)}
{A002203(n)=Pell(n-1)+Pell(n+1)}
{a(n)=polcoeff(1 - 6*sum(m=1,n,Pell(m)*kronecker(m,3)*x^m/(1+A002203(m)*x^m+(-1)^m*x^(2*m) +x*O(x^n))),n)}
for(n=0,40,print1(a(n),", "))

Formula

G.f.: 1 - 6*Sum_{n>=1} Pell(n)*Kronecker(n,3)*x^n/(1 + A002203(n)*x^n + (-1)^n*x^(2*n)), where A002203(n) = Pell(n-1) + Pell(n+1).
Showing 1-4 of 4 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.