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

Comments

Positions of the increasingly larger partial quotients are in A106643.

Links

Table of n, a(n) for n=1..17.

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

Crossrefs

Cf. A107951, A107950, A105658.

Sequence in context: A061596 A061597 A075813 * A004032 A123046 A237748

Adjacent sequences: A107949 A107950 A107951 * A107953 A107954 A107955

Keyword

more,nonn

Author

Robert G. Wilson v, May 28 2005

Status

approved