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

1, 11, 13, 17, 19, 22, 39, 46, 95, 100, 202, 716, 1008, 1347, 3544, 4174, 27864, 51834, 81170, 115510, 172502, 1297395, 1428481, 3429593, 8484143, 16796993, 35875141, 202879810, 560789726, 953079326, 1456311045, 2218799342

Offset: 1

Author

Olivier Gérard, Jul 10 2001

Keywords

• nonn
• easy

Comments

Shgz(10) = 1.0983361113176944131706689076969241474...

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 ]