1,2
t1 = ContinuedFraction[ N[ E^Pi - Pi^E, 9.8 10^5], 952040]; a = 0; Do[ If[ t1[[n]] > a, a = t1[[n]]; Print[a]], {n, 1, 952040} ]
Sequence in context: A002780 A069885 A069748 this_sequence A110949 A126343 A049409
Adjacent sequences: A064438 A064439 A064440 this_sequence A064442 A064443 A064444
cofr,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 01 2001
Search completed in 0.002 seconds
