Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Dec 10 2023 17:16:56
%S 0,8,3,2,3,0,7,0,5,9,2,2,5,3,9,9,0,4,1,0,9,0,8,7,8,7,7,6,3,1,8,7,9,7,
%T 8,9,7,8,2,9,4,5,6,8,5,5,8,2,6,0,9,0,2,6,5,1,7,1,8,1,9,4,4,8,8,1,0,4,
%U 3,0,4,5,7,5,8,7,1,7,5,2,8,5,9,0,7,2,3,0,0,0,0
%N Decimal expansion of Lim_{n>=0} Sum_{k=1..2*n} Bernoulli(1 + k) / ((1 + k) * k^(1 + k)).
%e 0.0832307059225399041090878776318797897829456855826090...
%p evalf(Sum(bernoulli(k+1) / ((k+1) * k^(k+1)), k = 1..infinity), 120); # _Vaclav Kotesovec_, Aug 11 2021
%t a[n_] := Sum[BernoulliB[1 + k] / ((1 + k) * k^(1 + k)), {k, 1, n}];
%t {0, RealDigits[N[a[240], 140], 10, 90][[1]]} // Flatten
%Y Cf. A346716 (numerator), A346717 (denominator).
%K nonn,cons
%O 0,2
%A _Peter Luschny_, Aug 11 2021