

A103518


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


1



0, 1, 4, 5, 6, 20, 31, 54, 306, 356, 762, 3174, 20240, 22693, 35793, 58491, 81251, 206410, 228533, 2921406
(list;
graph;
refs;
listen;
history;
text;
internal format)



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[n1]], {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



