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!)
A330504 Expansion of e.g.f. Sum_{k>=1} tanh(x^k). 3
1, 2, 4, 24, 136, 480, 4768, 40320, 249856, 4112640, 39563008, 319334400, 6249389056, 82473431040, 1044235737088, 20922789888000, 355897293438976, 4408265775513600, 121616011523719168, 2757288942600192000, 31308290669925892096 (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_{k>=1} (exp(2*x^k) - 1) / (exp(2*x^k) + 1).

a(n) = n! * Sum_{d|n} A155585(d) / d!.

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

MATHEMATICA

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

A155585[n_] := Sum[StirlingS2[n, k] (-2)^(n - k) k!, {k, 0, n}]; a[n_] := n! DivisorSum[n, A155585[#]/#! &]; Table[a[n], {n, 1, 21}]

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

CROSSREFS

Cf. A000182, A009006, A155585, A176475, A330254, A330255, A330505.

Sequence in context: A164313 A087981 A002875 * A330511 A110491 A019010

Adjacent sequences:  A330501 A330502 A330503 * A330505 A330506 A330507

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 9 03:16 EDT 2020. Contains 335538 sequences. (Running on oeis4.)