%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