A107952 - OEIS

A107952

Increasing partial quotients in A107951.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Positions of the increasingly larger partial quotients are in A106643.

LINKS

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

KEYWORD

more,nonn

AUTHOR

STATUS

approved