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

1, 5, 7, 12, 800, 1502, 3021, 5079, 6325, 17537, 50021, 158855, 826545, 5023575, 5097327, 6369490, 17535161, 19462254, 22535278, 24898987, 55666978, 111142756, 305716101, 2653533055, 3591521863, 4889613852, 10577043282

Offset: 1

Author

Olivier Gérard, Jul 10 2001

Keywords

• nonn
• easy

Comments

Shgz(4) = 1.2309553591249981798150126937918121309...

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 ]