A346717 a(n) = denominator(Sum_{k=1..2*n} Bernoulli(1 + k) / ((1 + k) * k^(1 + k))).

1, 12, 9720, 212625000, 350211660750000, 165830100163770908250000, 615072417899094252893747931729750000, 186290124133142953867176980119009688414239626750000, 309270713892913107006055533400699678031452505346679687500000

Offset

0,2

Links

Table of n, a(n) for n=0..8.

Mathematica

r[n_] := Sum[BernoulliB[1 + k] / ((1 + k) * k^(1 + k)), {k, 1, 2*n}];
Table[r[n], {n, 0, 10}] // Denominator

Prog

(PARI) a(n) = denominator(sum(k=1, 2*n, bernfrac(1+k)/((1+k)*k^(1+k)))); \\ Michel Marcus, Aug 12 2021

Crossrefs

Cf. A346716 (numerator), A346718 (rational limit).

Sequence in context: A345679 A012532 A343699 * A012732 A001322 A159411

Adjacent sequences: A346714 A346715 A346716 * A346718 A346719 A346720

Keyword

nonn,frac

Author

Peter Luschny, Aug 11 2021

Status

approved