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

1, 9, 11, 15, 25, 27, 36, 173, 202, 1965, 10312, 13538, 31564, 39844, 88358, 90936, 171767, 798975, 1350952, 1934096, 4998490, 6950469, 16097930, 30366857, 201980012, 280003359, 726993911, 6157450525, 25921409405, 26415716358

Offset: 1

Author

Olivier Gérard, Jul 10 2001

Keywords

• nonn
• easy

Comments

Shgz(8) = 1.1219134834160251891529193531149802991...

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 ]