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
Robert G. Wilson v and Eric W. Weisstein, Feb 07 2005
STATUS
approved