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,2

Links

Table of n, a(n) for n=1..17.

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

Crossrefs

Sequence in context: A002780 A069885 A069748 * A110949 A226703 A126343

Adjacent sequences: A064438 A064439 A064440 * A064442 A064443 A064444

Keyword

cofr,nonn

Author

Robert G. Wilson v, Oct 01 2001

Status

approved