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,3

Links

Table of n, a(n) for n=0..19.

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

Crossrefs

Cf. A051006, A051007. A102878.

Sequence in context: A221174 A047195 A109889 * A103313 A036492 A048075

Adjacent sequences: A103515 A103516 A103517 * A103519 A103520 A103521

Keyword

nonn

Author

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

Status

approved