The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

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!)
 A143337 Expansion of K(k) * (6 * E(k) - (1 + 4*k'^2) * K(k)) / (Pi/2)^2 in powers of q where E(k), K(k) are complete elliptic integrals and q = exp(-Pi * K(k') / K(k)). 1
 1, 24, -72, 96, -168, 144, -288, 192, -360, 312, -432, 288, -672, 336, -576, 576, -744, 432, -936, 480, -1008, 768, -864, 576, -1440, 744, -1008, 960, -1344, 720, -1728, 768, -1512, 1152, -1296, 1152, -2184, 912, -1440, 1344, -2160, 1008, -2304, 1056, -2016, 1872, -1728, 1152 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS FORMULA G.f.: 1 - 24 * Sum_{k>0} k * (-x)^k / (1 - (-x)^k) = 1 - 24 * Sum_{k>0} (-x)^k / (1 - (-x)^k)^2. a(n) = (-1)^n * A006352(n). a(n) = 24 * A143348(n) unless n=0. Expansion of -(P(q) - 6 * P(q^2) + 4 * P(q^4)) in powers of q where P() is a Ramanujan Lambert series. - Michael Somos, Apr 07 2015 EXAMPLE G.f. = 1 + 24*q - 72*q^2 + 96*q^3 - 168*q^4 + 144*q^5 - 288*q^6 + 192*q^7 + ... MATHEMATICA a[ n_] := If[ n < 1, Boole[n == 0], -(-1)^n 24 DivisorSigma[ 1, n]]; (* Michael Somos, Apr 07 2015 *) PROG (PARI) {a(n) = if( n<1, n==0, -(-1)^n * 24 * sigma(n))}; CROSSREFS Cf. A006352, A143348. Sequence in context: A126378 A320702 A006352 * A183006 A090860 A304374 Adjacent sequences:  A143334 A143335 A143336 * A143338 A143339 A143340 KEYWORD sign AUTHOR Michael Somos, Aug 09 2008 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.

Last modified January 15 18:16 EST 2021. Contains 340188 sequences. (Running on oeis4.)