Revision History for A205970
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#11 by Bruno Berselli at Mon Dec 04 03:01:10 EST 2017
|
|
|
|
#10 by Joerg Arndt at Mon Dec 04 02:52:18 EST 2017
|
|
|
|
#9 by G. C. Greubel at Mon Dec 04 00:05:07 EST 2017
|
|
|
|
#8 by G. C. Greubel at Mon Dec 04 00:04:47 EST 2017
|
| LINKS
|
G. C. Greubel, <a href="/A205970/b205970.txt">Table of n, a(n) for n = 0..1000</a>
|
| FORMULA
|
G.f.: 1 - 3*Sum_{n>=0} Fibonacci(6*n+1)*x^(6*n+1)/(1+ + Lucas(6*n+1)*) * x^(6*n+1)-) - x^(12*n+2)) - Fibonacci(6*n+5)*x^(6*n+ +5)/(1+ + Lucas(6*n+5)*) * x^(6*n+5)-) - x^(12*n+10)).
|
| MATHEMATICA
|
A132973:= CoefficientList[Series[(-1)^(-1/4)*EllipticTheta[2, 0, I*Sqrt[q]]^3/EllipticTheta[2, 0, I*Sqrt[q^3]]/4, {q, 0, 60}], q]; Table[If[n == 0, 1, Fibonacci[n]*A132973[[n + 1]]], {n, 0, 50}] (* G. C. Greubel, Dec 03 2017 *)
|
| STATUS
|
approved
editing
|
|
|
|
#7 by Russ Cox at Fri Mar 30 18:37:34 EDT 2012
|
| AUTHOR
|
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Feb 04 2012
|
|
|
Discussion
|
Fri Mar 30
| 18:37
| OEIS Server: https://oeis.org/edit/global/213
|
|
|
|
#6 by Paul D. Hanna at Sat Mar 10 10:13:42 EST 2012
|
|
|
|
#5 by Paul D. Hanna at Sat Mar 10 10:13:37 EST 2012
|
| NAME
|
a(n) = Fibonacci(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.
|
| COMMENTS
|
Compare g.f. to the Lambert series of A132973:
|
| FORMULA
|
G.f.: 1 - 3*Sum_{n>=0} Fibonacci(6*n+1)*x^(6*n+1)/(1+Lucas(6*n+1)*x^(6*n+1)-x^(12*n+2)) - Fibonacci(6*n+5)*x^(6*n+5)/(1+Lucas(6*n+5)*x^(6*n+5)-x^(12*n+10)).
|
| EXAMPLE
|
G.f.: A(x) = 1 - 3*x + 3*x^2 - 6*x^3 + 9*x^4 + 24*x^6 - 78*x^7 + 63*x^8 +...
|
| PROG
|
((PARI) {Lucas(n)=fibonacci(n-1)+fibonacci(n+1)}
|
| CROSSREFS
|
Cf. A132973, A205969, A205971, A203847.
Cf. A209450 (Pell variant).
|
| STATUS
|
approved
editing
|
|
|
|
#4 by N. J. A. Sloane at Sat Feb 04 12:23:50 EST 2012
|
|
|
|
#3 by Paul D. Hanna at Sat Feb 04 09:28:49 EST 2012
|
|
|
|
#2 by Paul D. Hanna at Sat Feb 04 09:28:32 EST 2012
|
| NAME
|
allocated a(n) = Fibonacci(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 Paultheta D. Hannafunction.
|
| DATA
|
1, -3, 3, -6, 9, 0, 24, -78, 63, -102, 0, 0, 432, -1398, 2262, 0, 2961, 0, 7752, -25086, 0, -65676, 0, 0, 139104, -225075, 728358, -589254, 1906866, 0, 0, -8077614, 6534927, 0, 0, 0, 44791056, -144946902, 234529014, -379475916, 0, 0, 1607485776, -2600966622, 0
|
| OFFSET
|
0,2
|
| 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)).
|
| FORMULA
|
G.f.: 1 - 3*Sum_{n>=0} Fibonacci(6*n+1)*x^(6*n+1)/(1+Lucas(6*n+1)*x^(6*n+1)-x^(12*n+2)) - Fibonacci(6*n+5)*x^(6*n+5)/(1+Lucas(6*n+5)*x^(6*n+5)-x^(12*n+10)).
|
| EXAMPLE
|
G.f.: A(x) = 1 - 3*x + 3*x^2 - 6*x^3 + 9*x^4 + 24*x^6 - 78*x^7 + 63*x^8 +...
where A(x) = 1 - 1*3*x + 1*3*x^2 - 2*3*x^3 + 3*3*x^4 + 8*3*x^6 - 13*6*x^7 + 21*3*x^8 +...+ Fibonacci(n)*A132973(n)*x^n +...
The g.f. is also given by the identity:
A(x) = 1 - 3*( 1*x/(1+x-x^2) - 5*x^5/(1+11*x^5-x^10) + 13*x^7/(1+29*x^7-x^14) - 89*x^11/(1+199*x^11-x^22) + 233*x^13/(1+521*x^13-x^26) - 1597*x^17/(1+3571*x^17-x^34) +...).
|
| PROG
|
(PARI) {Lucas(n)=fibonacci(n-1)+fibonacci(n+1)}
{a(n)=polcoeff(1 - 3*sum(m=0, n, fibonacci(6*m+1)*x^(6*m+1)/(1+Lucas(6*m+1)*x^(6*m+1)-x^(12*m+2) +x*O(x^n)) - fibonacci(6*m+5)*x^(6*m+5)/(1+Lucas(6*m+5)*x^(6*m+5)-x^(12*m+10) +x*O(x^n)) ), n)}
for(n=0, 61, print1(a(n), ", "))
|
| CROSSREFS
|
Cf. A132973, A205969, A205971, A203847.
|
| KEYWORD
|
allocated
sign
|
| AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Feb 04 2012
|
| STATUS
|
approved
editing
|
|
|
|
|