|
|
A050925
|
|
Numerator of (n+1)*Bernoulli(n).
|
|
10
|
|
|
1, -1, 1, 0, -1, 0, 1, 0, -3, 0, 5, 0, -691, 0, 35, 0, -3617, 0, 43867, 0, -1222277, 0, 854513, 0, -1181820455, 0, 76977927, 0, -23749461029, 0, 8615841276005, 0, -84802531453387, 0, 90219075042845, 0, -26315271553053477373, 0, 38089920879940267, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,9
|
|
COMMENTS
|
The denominators are in A050932. The e.g.f. for (n+1)*Bernoulli(n), n >= 0, is (d/dx)(x^2/(exp(x)-1)) = x*(2*(exp(x)-1)- x*exp(x))/(exp(x)-1)^2. - Wolfdieter Lang, Jul 15 2013
It can be observed that the rational sequence [0, 1, 1, 1/2, 0, -1/6, 0, 1/6, 0, -3/10, 0, 5/6, ...], derived from a(n)/A050932(n), is an autosequence of the first kind. - Jean-François Alcover, Jul 21 2017
Apparently a(n) = numerator(Sum_{k=0..n-1} (-1)^(n-k+1)*E1(n,k+1)/binomial(n,k+1)) for n >= 2, where E1(n, k) denotes the first-order Eulerian numbers A123125. - Peter Luschny, Feb 17 2021
|
|
LINKS
|
|
|
MATHEMATICA
|
Numerator[Table[(n+1)BernoulliB[n], {n, 0, 40}]] (* Harvey P. Dale, May 13 2012 *)
|
|
PROG
|
(Haskell)
a050925 n = a050925_list !! n
a050925_list = 1 : -1 : (tail $ map (numerator . sum) $
zipWith (zipWith (%))
(zipWith (map . (*)) (drop 2 a000142_list) a242179_tabf) a106831_tabf)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy,frac,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|