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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A330511 Expansion of e.g.f. Sum_{k>=1} arctan(x^k). 0
1, 2, 4, 24, 144, 480, 4320, 40320, 282240, 4354560, 36288000, 319334400, 6706022400, 74724249600, 1046139494400, 20922789888000, 376610217984000, 4979623993344000, 115242726703104000, 2919482409811968000, 29194824098119680000 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..21.

FORMULA

E.g.f.: Sum_{i>=1} Sum_{j>=1} (-1)^(j + 1) * x^(i*(2*j - 1)) / (2*j - 1).

a(n) = (n - 1)! * Sum_{d|n, n/d odd} (-1)^((n/d - 1)/2) * d.

MATHEMATICA

nmax = 21; CoefficientList[Series[Sum[ArcTan[x^k], {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest

Table[(n - 1)! DivisorSum[n, (-1)^((n/# - 1)/2) # &, OddQ[n/#] &], {n, 1, 21}]

PROG

(PARI) a(n) = (n-1)!*sumdiv(n, d, if (n/d % 2, (-1)^((n/d - 1)/2)*d)); \\ Michel Marcus, Dec 17 2019

CROSSREFS

Cf. A005359, A050469, A176475, A330504, A330505.

Sequence in context: A087981 A002875 A330504 * A110491 A019010 A275553

Adjacent sequences:  A330508 A330509 A330510 * A330512 A330513 A330514

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Dec 16 2019

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 July 12 19:26 EDT 2020. Contains 335668 sequences. (Running on oeis4.)