login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A109506 Expansion of (1 - phi(-q)^4)/ 8 in powers of q where phi() is a Ramanujan theta function. 7
1, -3, 4, -3, 6, -12, 8, -3, 13, -18, 12, -12, 14, -24, 24, -3, 18, -39, 20, -18, 32, -36, 24, -12, 31, -42, 40, -24, 30, -72, 32, -3, 48, -54, 48, -39, 38, -60, 56, -18, 42, -96, 44, -36, 78, -72, 48, -12, 57, -93, 72, -42, 54, -120, 72, -24, 80, -90, 60, -72, 62, -96, 104, -3, 84, -144, 68, -54, 96, -144, 72 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

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

Denoted by xi(n) in Glaisher 1907. - Michael Somos, May 17 2013

REFERENCES

G. Chrystal, Algebra: An elementary text-book for the higher classes of secondary schools and for colleges, 6th ed, Chelsea Publishing Co., New York 1959 Part II, p. 346 Exercise XXI(18). MR0121327 (22 #12066) J. W. L. Glaisher, On the representations of a number as the sum of two, four, six, eight, ten, and twelve squares, Quart. J. Math. 38 (1907), 1-62 (see p. 8).

LINKS

Seiichi Manyama, Table of n, a(n) for n = 1..10000

J. W. L. Glaisher, On the representations of a number as the sum of two, four, six, eight, ten, and twelve squares, Quart. J. Math. 38 (1907), 1-62 (see p. 4 and p. 8).

M. Somos, Introduction to Ramanujan theta functions

Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Index entries for sequences mentioned by Glaisher

FORMULA

Expansion of (1 - eta(q)^8 / eta(q^2)^4) / 8 in powers of q.

a(n) = Sum_{d divides n} (-1)^(n/d + d) * d [Glaisher].

Multiplicative with a(2^e) = -3, if e>0. a(p^e) = (p^(e+1) - 1) / (p - 1) if p>2.

G.f.: Sum_{k>0} k * (x^k / (1 - x^k) - 6 * x^(2*k) / (1 - x^(2*k)) + 8 * x^(4*k) / (1 - x^(4*k))).

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

a(n) = -(-1)^n * A046897(n). a(n) = -A096727(n) / 8 unless n=0. a(2*n) = -3 * A000593(n). a(2*n + 1) = A008438(n). a(4*n + 1) = A112610(n). a(4*n + 3) = A097723(n).

EXAMPLE

q - 3*q^2 + 4*q^3 - 3*q^4 + 6*q^5 - 12*q^6 + 8*q^7 - 3*q^8 + 13*q^9 + ...

MATHEMATICA

a[ n_] := If[ n < 1, 0, -(-1)^n Sum[ If[ Mod[ d, 4] == 0, 0, d], {d, Divisors@n}]] (* Michael Somos, May 17 2013 *)

PROG

(PARI) {a(n) = if( n<1, 0, -(-1)^n * sumdiv( n, d, if( d%4, d)))}

(PARI) {a(n) = local(A); if( n<1, 0, A = x * O(x^n); -1/8 * polcoeff( eta(x + A)^8 / eta(x^2 + A)^4, n))}

CROSSREFS

Cf. A000593, A008438, A046897, A096727, A112610.

Sequence in context: A073181 A183100 A046897 * A000113 A069915 A033634

Adjacent sequences:  A109503 A109504 A109505 * A109507 A109508 A109509

KEYWORD

sign,mult

AUTHOR

Michael Somos, Jun 30 2005

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 19 20:33 EST 2019. Contains 319310 sequences. (Running on oeis4.)