A102878 Increasing partial quotients in the continued fraction expansion of the prime constant (A051006).

0, 2, 3, 12, 131, 169, 199, 279, 413, 851, 2771, 18514, 20740, 20780, 147756, 207783, 312134, 361393, 6931243

Offset

0,2

Comments

a(19) is a 3010301-digit number (1.71206300894551448591713167863057582188628436436...*10^3010300) with digit distribution 301276, 301983, 300946, 301660, 301631, 301181, 299864, 300633, 300456 & 300671.

Links

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

Mathematica

cf = ContinuedFraction[ FromDigits[ {{Table[ If[ PrimeQ[n], 1, 0], {n, 10^7}]}, 0}, 2]]; a = 0; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[a]], {n, 5842783}]

Crossrefs

Cf. A051006, A051007, A103518.

Sequence in context: A162075 A333166 A245584 * A132501 A067338 A012713

Adjacent sequences: A102875 A102876 A102877 * A102879 A102880 A102881

Keyword

nonn

Author

Robert G. Wilson v, Jan 15 2005

Status

approved