%I #5 Oct 22 2013 12:56:01
%S 0,2,3,12,131,169,199,279,413,851,2771,18514,20740,20780,147756,
%T 207783,312134,361393,6931243
%N Increasing partial quotients in the continued fraction expansion of the prime constant (A051006).
%C a(19) is a 3010301-digit number (1.71206300894551448591713167863057582188628436436...*10^3010300) with digit distribution 301276, 301983, 300946, 301660, 301631, 301181, 299864, 300633, 300456 & 300671.
%t cf = ContinuedFraction[ FromDigits[ {{Table[ If[ PrimeQ[n], 1, 0], {n, 10^7}]}, 0}, 2]]; a = 0; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[a]], {n, 5842783}]
%Y Cf. A051006, A051007, A103518.
%K nonn
%O 0,2
%A _Robert G. Wilson v_, Jan 15 2005