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

1, 8, 10, 14, 36, 45, 88, 102, 114, 432, 4369, 9183, 15670, 31307, 103514, 511249, 1673274, 2394998, 3225410, 4732293, 54612351, 55335052, 220482735, 39208626697, 290846809341, 296349507792, 2280942643369, 2891972596111

Offset: 1

Author

Olivier Gérard, Jul 10 2001

Keywords

• nonn
• easy

Comments

Shgz(7) = 1.1384182162015123957749881105729298508...

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 ]