The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #4 Mar 31 2012 12:39:08
%S 0,1,4,5,6,20,31,54,306,356,762,3174,20240,22693,35793,58491,81251,
%T 206410,228533,2921406
%N Indices of increasing partial quotients PQ_i of the continued fraction for the prime constant (A051006).
%t cf = ContinuedFraction[ FromDigits[ {{Table[ If[ PrimeQ[n], 1, 0], {n, 10^7}]}, 0}, 2]]; a = -1; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[n-1]], {n, 5842783}]
%Y Cf. A051006, A051007. A102878.
%K nonn
%O 0,3
%A _Robert G. Wilson v_ and _Eric W. Weisstein_, Feb 07 2005