A107951 -id:A107951 - cp's OEIS frontend

A107952 Increasing partial quotients in A107951.

1, 4, 6, 23, 25, 36, 84, 499, 857, 1393, 1741, 1961, 106527, 130617, 257090, 1912295, 2647129

Offset: 1

Robert G. Wilson v, May 28 2005

Positions of the increasingly larger partial quotients are in A106643.

cf = ContinuedFraction[ Sum[i(i + 1)/2/Product[i!/j!, {j, 0, i - 1}], {i, 1500}]]; a = 0; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[a]], {n, 6462686}]

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

Original entry on oeis.org

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, 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, 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

Offset: 1

Robert G. Wilson v, May 28 2005

			B=1.805917418986691013997505385851050680989652545909634282575958858...

Cf. A105658, A107951, A107952.

RealDigits[ Sum[i(i + 1)/2/Product[i!/j!, {j, 0, i - 1}], {i, 14}], 10, 111][[1]]
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 *)

cp's OEIS Frontend

A107952 Increasing partial quotients in A107951.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica