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