login
Decimal expansion of number whose Engel expansion is given by the sequence: 1,1,2,2,3,3,4,4,...Ceiling[n/2],...
4

%I #19 Apr 13 2018 11:27:27

%S 2,8,7,0,2,2,2,1,5,6,9,7,3,3,9,6,3,3,0,8,1,9,4,5,8,8,6,5,8,1,1,1,9,9,

%T 6,0,1,2,4,0,3,1,9,2,6,2,2,8,0,9,9,5,7,0,1,2,0,3,1,2,7,7,3,6,2,7,2,8,

%U 5,0,3,8,0,7,6,8,0,3,7,5,2,7,8,4,5,6,3,9,2,3,6,1,5,0,7,1,4,8,2,4

%N Decimal expansion of number whose Engel expansion is given by the sequence: 1,1,2,2,3,3,4,4,...Ceiling[n/2],...

%D Engel, F. "Entwicklung der Zahlen nach Stammbruechen" Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg. pp. 190-191, 1913.

%H F. Engel, <a href="/A006784/a006784.pdf">Entwicklung der Zahlen nach Stammbruechen</a>, Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg, 1913, pp. 190-191. English translation by Georg Fischer, included with his permission.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/EngelExpansion.html">Engel Expansion</a>.

%F From _Peter Bala_, Jul 01 2016: (Start)

%F Constant c = 1/1 + 1/(1*1) + 1/(1*1*2) + 1/(1*1*2*2) + 1/(1*1*2*2*3) + 1/(1*1*2*2*3*3) + ... = Sum_{n >= 1} binomial(n,floor(n/2))/n!.

%F Alternative series representations:

%F c = 3 - Sum_{n >= 2} 1/(n*(n - 1)*n!^2);

%F c = 1 + Sum_{n >= 1} (n + 2)/(n!*(n + 1)!);

%F c = 5/3 + 1/3*Sum_{n >= 2} (n + 1)*(n + 2)/n!^2;

%F c = A070910 + A096789 - 1.

%F Continued fraction: c = 3 - 1/(8 - 4/(14 - 9/(32 - ... - (n-1)^2/(n^2 + n + 2 - ...)))). See comments in A141827. (End)

%e 2.8702221569733963308194588658111996012403192622809957012...

%p evalf(BesselI(0, 2) + BesselI(1, 2) - 1, 100); # _Peter Bala_, Jul 02 2016

%t First@ RealDigits@ N[Sum[1/Product[Ceiling[r/2], {r, n}], {n, 1000}], 100]) (* Original program amended to generate output by _Michael De Vlieger_, Jul 03 2016 *)

%t RealDigits[3 - HypergeometricPFQ[{1, 1}, {3, 3, 3}, 1]/8, 10, 100][[1]] (* _Vaclav Kotesovec_, Jul 03 2016 *)

%Y Cf. A006784, A064648, A101689, A001405, A070910, A096789, A141827.

%K cons,easy,nonn

%O 1,1

%A Stephen Casey (hexomino(AT)gmail.com), Jul 17 2007