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

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A109506 Expansion of (1-eta(q)^8/et(q^2)^4)/8 in powers of q. 2
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; internal format)
OFFSET

1,2

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)

FORMULA

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

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) -6x^(2k)/(1-x^(2k)) +8x^(4k)/(1-x^(4k))).

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

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

a(n)=-(-1)^n*A046897(n). a(n)=-A096727(n)/8, if n>0.

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 15 23:53 EST 2012. Contains 205860 sequences.