login
Boling's constant, the decimal expansion of Sum_{i>=1} i(i+1) / (2*Product_{j=0..i-1} i!/j!).
2

%I #8 Nov 18 2015 05:00:21

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

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

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

%N Boling's constant, the decimal expansion of Sum_{i>=1} i(i+1) / (2*Product_{j=0..i-1} i!/j!).

%e B=1.805917418986691013997505385851050680989652545909634282575958858...

%t RealDigits[ Sum[i(i + 1)/2/Product[i!/j!, {j, 0, i - 1}], {i, 14}], 10, 111][[1]]

%t Clear[B]; B[m_] := B[m] = N[Sum[i*(1+i)/2*BarnesG[1+i]/i!^i, {i, 1, m}], 105]; m=2; While[B[m] != B[m-1], m++]; RealDigits[B[m]][[1]] (* _Jean-François Alcover_, Nov 18 2015 *)

%Y Cf. A105658, A107951, A107952.

%K cons,nonn

%O 1,2

%A _Robert G. Wilson v_, May 28 2005