A096194 Engel expansion of exp(e).

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 13, 27, 45, 212, 388, 735, 3422, 3913, 11095, 18232, 20624, 54745, 426826, 617936, 3424833, 3494454, 3664162, 5238283, 5650352, 17373150, 168850488, 716822623, 729646247, 1226034011, 3976121167

Offset

1,16

Links

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

Mathematica

EngelExp[ A_, n_ ] := Join[ Array[ 1 &, Floor[ A ]], First@Transpose @ NestList[ {Ceiling[ 1/Expand[ #[[ 1 ]] #[[ 2 ]] - 1 ]], Expand[ #[[ 1 ]] #[[ 2 ]] - 1]} &, {Ceiling[ 1/(A - Floor[A]) ], A - Floor[A]}, n - 1 ]]; EngelExp[ N[E^E, 2^8], 26] (* Robert G. Wilson v, Jul 28 2008 *)

Crossrefs

Cf. A073226.

Sequence in context: A147258 A146718 A146646 * A160889 A360357 A283650

Adjacent sequences: A096191 A096192 A096193 * A096195 A096196 A096197

Keyword

nonn

Author

Gerald McGarvey, Jul 25 2004

Extensions

Edited and extended by Robert G. Wilson v, Jul 28 2004

Status

approved