%I #8 Jan 02 2022 20:24:55
%S 1,4,6,13,16,31,131,231,578,905,1649,4810,5999,10249,11962,21338,
%T 229345,404066,772217,1646462,2129025,235494066,559730937,1287457726,
%U 1549953698,2919657850,23892156516,52085560558,70347157214
%N Engel expansion of Sum_{k>=0} 1/(3 + k)^k.
%C Shgz(3) = 1.2950786268784303709733480860835436581...
%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,nice
%O 1,2
%A _Olivier GĂ©rard_, Jul 10 2001
|