|
%I #4 May 18 2024 15:09:11
%S 1,1,1,1,6,4,3,9,3,8,2,2,4,0,6,6,2,9,4,9,4,1,2,1,4,9,1,2,1,5,0,5,6,8,
%T 1,8,0,7,3,8,0,9,1,9,3,5,1,5,2,2,0,2,9,5,4,9,2,8,2,0,5,0,5,8,0,7,5,8,
%U 1,2,3,0,8,3,9,0,7,1,7,3,9,7,6,5,5,9
%N Decimal expansion of Sum_{k>=0} k / (k^3+1).
%e 1.111643938224066294941214912150568180738091935...
%t s = Sum[ k/(k^3 + 1), {k, 0, Infinity}]
%t d = Chop[N[s, 100]]
%t First[RealDigits[d]]
%Y Cf. A372366.
%K nonn,cons
%O 1,5
%A _Clark Kimberling_, May 12 2024
|
