A064441 Increasing partial quotients of e^Pi - Pi^e (A063504).

1, 2, 7, 11, 124, 146, 205, 1121, 2101, 3333, 20899, 45415, 54103, 67629, 148987, 319183, 757657

Offset: 1

Author

Robert G. Wilson v, Oct 01 2001

Keywords

• nonn
• more

Crossrefs

Cf. A063503 (continued fraction).

Programs

Mathematica

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} ]