%I #7 Jan 02 2022 21:05:16
%S 1,9,11,15,25,27,36,173,202,1965,10312,13538,31564,39844,88358,90936,
%T 171767,798975,1350952,1934096,4998490,6950469,16097930,30366857,
%U 201980012,280003359,726993911,6157450525,25921409405,26415716358
%N Engel expansion of Sum_{k>=0} 1/(8 + k)^k.
%C Shgz(8) = 1.1219134834160251891529193531149802991...
%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
|