A103518 Indices of increasing partial quotients PQ_i of the continued fraction for the prime constant (A051006).

0, 1, 4, 5, 6, 20, 31, 54, 306, 356, 762, 3174, 20240, 22693, 35793, 58491, 81251, 206410, 228533, 2921406

Offset: 0

Author

Robert G. Wilson v and Eric W. Weisstein, Feb 07 2005

Keywords

• nonn

Crossrefs

Cf. A051006, A051007. A102878.

Programs

Mathematica

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