|
%I #20 Jun 15 2023 02:28:12
%S 1,9,6,2,6,0,8,4,1,2,9,9,4,6,1,6,9,8,5,1,5,9,1,5,4,2,6,4,7,3,7,2,9,4,
%T 3,5,6,7,1,2,8,3,0,6,6,5,5,1,4,4,3,5,3,5,4,6,7,1,5,2,2,2,3,5,8,6,6,5,
%U 7,6,0,9,5,2,7,4,3,2,9,2,7,1,3,4,6,8,2,4,1,7,1,7,3,8,2,6,1,2,7,0,4
%N Decimal expansion of the (finite) value of Sum_{ k >= 1, k has no odd digit in base 10 } 1/k.
%H Robert Baillie and Thomas Schmelzer, <a href="https://library.wolfram.com/infocenter/MathSource/7166/">Summing Kempner's Curious (Slowly-Convergent) Series</a>, Mathematica Notebook kempnerSums.nb, Wolfram Library Archive, 2008.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Kempner_series">Kempner series</a>.
%F Equals Sum_{n>=2} 1/A014263(n). - _Bernard Schott_, Jan 13 2022
%e 1.96260841299461698515915426473729435671283066551443535467152223586...
%t RealDigits[kSum[{1, 3, 5, 7, 9}, 120 ]][[1]] (* _Amiram Eldar_, Jun 15 2023, using Baillie and Schmelzer's kempnerSums.nb, see Links *)
%Y Cf. A014263, A194181.
%K cons,nonn
%O 1,2
%A _Robert G. Wilson v_, Aug 18 2011
|
