login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A143434 Expansion of f(x, -x^3) in powers of x where f(,) is Ramanujan's two-variable theta function. 2

%I #13 Jun 16 2017 19:27:49

%S 1,1,0,-1,0,0,-1,0,0,0,-1,0,0,0,0,-1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,

%T 0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,

%U -1,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0

%N Expansion of f(x, -x^3) in powers of x where f(,) is Ramanujan's two-variable theta function.

%H G. C. Greubel, <a href="/A143434/b143434.txt">Table of n, a(n) for n = 0..1000</a>

%F Euler transform of period 16 sequence [ 1, -1, -1, 1, -1, 0, 1, -2, 1, 0, -1, 1, -1, -1, 1, -1, ...].

%F G.f.: Sum_{k>=0} (-1)^floor((k + 2) / 4) * x^(k * (k+1) / 2).

%F a(n) = (-1)^n * A143433(n).

%e 1 + x - x^3 - x^6 - x^10 - x^15 + x^21 + x^28 + x^36 + x^45 - x^55 - x^66 + ...

%e q + q^9 - q^25 - q^49 - q^81 - q^121 + q^169 + q^225 + q^289 + q^361 + ...

%t a[ n_] := If[ n < 0, 0, SeriesCoefficient[ (Series[ EllipticTheta[ 3, Log[y] / (2 I), I x^2], {x, 0, n + Floor@Sqrt[n]}] // Normal // TrigToExp) /. {y -> I x}, {x, 0, n}]]

%o (PARI) {a(n) = if( n<0, 0, if( issquare( 8*n + 1, &n), n = n\2; (-1)^((n + 2) \ 4), 0))}

%o (PARI) {a(n) = local(A); if( n<0, 0, polcoeff( prod( k=1, n, (1 - x^k)^( [1, -1, 1, 1, -1, 1, 0, -1, 2, -1, 0, 1, -1, 1, 1, -1] [k%16 + 1]), 1 + x * O(x^n)), n))}

%Y Cf. A143433.

%K sign

%O 0,1

%A _Michael Somos_, Aug 14 2008

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)