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.
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 15 2005
STATUS
approved