|
| |
|
|
A109572
|
|
E.g.f.: x/[1-tan(x)].
|
|
1
|
|
|
|
0, 1, 2, 6, 32, 200, 1536, 13664, 139264, 1595520, 20316160, 284534272, 4347396096, 71958415360, 1282685272064, 24497477345280, 499058556796928, 10802158189445120, 247567232110952448, 5989035387568652288
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
COMMENTS
|
"Bernoulli numbers" for x/[1-tan(x)].
|
|
|
LINKS
|
Table of n, a(n) for n=0..19.
|
|
|
FORMULA
|
a(n) ~ n! * 2^(2*n-1)/Pi^n. - Vaclav Kotesovec, Jun 26 2013
|
|
|
MAPLE
|
G:=x/(1-tan(x)): Gser:=series(G, x=0, 25): 0, seq(n!*coeff(Gser, x^n), n=1..22);
|
|
|
MATHEMATICA
|
g[x_] = x/(-1 + Tan[x]) h[x_, n_] = Dt[g[x], {x, n}] a[x_] = Table[ -h[x, n], {n, 0, 50}]; b = a[0]
|
|
|
CROSSREFS
|
Cf. A057711.
Sequence in context: A271958 A055596 A318976 * A011820 A206300 A224884
Adjacent sequences: A109569 A109570 A109571 * A109573 A109574 A109575
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Roger L. Bagula, Jun 27 2005
|
|
|
STATUS
|
approved
|
| |
|
|
