A063184 Engel expansion of Sum_{k>=0} 1/(1 + k)^k.

1, 2, 4, 36, 2330, 3274, 7195, 28106, 38508, 74032, 74935, 203763, 264407, 431066, 1679581, 2473728, 2790505, 9118184, 10686256, 39154390, 64918230, 3725272877, 6503732261, 10906782833, 33507112881, 34193678041

Offset: 1

Author

Olivier Gérard, Jul 10 2001

Keywords

• nonn
• easy

Comments

Shgz(1) = 1.6284737129015844470558891432618830316...

Crossrefs

Cf. A006784 for definition of Engel expansion.

Programs

Mathematica

ToEngel[ x_, n_Integer ] := Rest@First@Transpose@NestList[ {Ceiling[ 1/# ], #}&[ Times@@#-1 ]&, {1, Abs[ x ]+1}, n ]