OFFSET
0,3
MATHEMATICA
r[n_] := Sum[BernoulliB[1 + k] / ((1 + k) * k^(1 + k)), {k, 1, 2*n}];
Table[r[n], {n, 0, 10}] // Numerator
PROG
(PARI) a(n) = numerator(sum(k=1, 2*n, bernfrac(1+k)/((1+k)*k^(1+k)))); \\ Michel Marcus, Aug 12 2021
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Peter Luschny, Aug 11 2021
STATUS
approved