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

%I #10 Jan 02 2022 20:22:27

%S 1,11,13,17,19,22,39,46,95,100,202,716,1008,1347,3544,4174,27864,

%T 51834,81170,115510,172502,1297395,1428481,3429593,8484143,16796993,

%U 35875141,202879810,560789726,953079326,1456311045,2218799342

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

%C Shgz(10) = 1.0983361113176944131706689076969241474...

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

%Y Cf. A006784 for definition of Engel expansion.

%K nonn,easy

%O 1,2

%A _Olivier GĂ©rard_, Jul 10 2001