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

Author

Robert G. Wilson v, May 28 2005

Keywords

• more
• nonn

Comments

Positions of the increasingly larger partial quotients are in A106643.

Crossrefs

Cf. A107951, A107950, A105658.

Programs

Mathematica

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}]