OFFSET
0,2
COMMENTS
FORMULA
MAPLE
a := n -> numer((-2)^n*add(binomial(n, k)*bernoulli(k, 1/2), k=0..n)):
seq(a(n), n=0..31); # Peter Luschny, Jul 24 2020
MATHEMATICA
a[n_] := (-2)^n Sum[Binomial[n, k] BernoulliB[k, 1/2], {k, 0, n}] // Numerator;
Table[a[n], {n, 0, 31}] (* Peter Luschny, Jul 24 2020 *)
PROG
(SageMath) # uses [gen_bernoulli_number from A157811]
print([numerator((-1)^n*gen_bernoulli_number(n, 2)) for n in range(33)]) # Peter Luschny, Mar 26 2021
CROSSREFS
KEYWORD
sign,easy,frac
AUTHOR
Wolfdieter Lang, May 03 2017
EXTENSIONS
More terms from Indranil Ghosh, May 06 2017
New name by Peter Luschny, Jul 24 2020
STATUS
approved