login
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
OFFSET
0,3
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
KEYWORD
nonn
AUTHOR
STATUS
approved