login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #8 Jan 02 2022 21:04:55

%S 1,8,10,14,36,45,88,102,114,432,4369,9183,15670,31307,103514,511249,

%T 1673274,2394998,3225410,4732293,54612351,55335052,220482735,

%U 39208626697,290846809341,296349507792,2280942643369,2891972596111

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

%C Shgz(7) = 1.1384182162015123957749881105729298508...

%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