login
Increasing partial quotients in A107951.
3

%I #2 Mar 30 2012 17:31:15

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

%T 1912295,2647129

%N Increasing partial quotients in A107951.

%C Positions of the increasingly larger partial quotients are in A106643.

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

%Y Cf. A107951, A107950, A105658.

%K more,nonn

%O 1,2

%A _Robert G. Wilson v_, May 28 2005