|
|
A063190
|
|
Engel expansion of Sum_{k>=0} 1/(7 + k)^k.
|
|
0
|
|
|
1, 8, 10, 14, 36, 45, 88, 102, 114, 432, 4369, 9183, 15670, 31307, 103514, 511249, 1673274, 2394998, 3225410, 4732293, 54612351, 55335052, 220482735, 39208626697, 290846809341, 296349507792, 2280942643369, 2891972596111
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Shgz(7) = 1.1384182162015123957749881105729298508...
|
|
LINKS
|
|
|
MATHEMATICA
|
ToEngel[ x_, n_Integer ] := Rest@First@Transpose@NestList[ {Ceiling[ 1/# ], #}&[ Times@@#-1 ]&, {1, Abs[ x ]+1}, n ]
|
|
CROSSREFS
|
Cf. A006784 for definition of Engel expansion.
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|