OFFSET
0,2
COMMENTS
It appears that for n > 6, a(n)*(-1)^n < 0. (This comment was inspired by an observation of Robert Israel in A061053.)
MAPLE
a := n -> (2*n+1)!*add(bernoulli(2*k), k=0..n): seq(a(n), n=0..30);
MATHEMATICA
Table[(2 n + 1)! Sum[BernoulliB[2 k], {k, 0, n}], {n, 0, 14}] (* Michael De Vlieger, Sep 21 2015 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, Sep 21 2015
STATUS
approved