A063185 Engel expansion of Sum_{k>=0} 1/(2 + k)^k.
1, 3, 5, 15, 20, 124, 141, 1085, 1221, 5267, 9814, 9899, 179888, 531293, 43914936, 59108249, 129482155, 290253117, 297264974, 329981693, 515700524, 1791622856, 29237782307, 289017844013, 2187297805011, 20282473409970
Offset: 1
Crossrefs
Cf. A006784 for definition of Engel expansion.
Programs
-
Mathematica
ToEngel[ x_, n_Integer ] := Rest@First@Transpose@NestList[ {Ceiling[ 1/# ], #}&[ Times@@#-1 ]&, {1, Abs[ x ]+1}, n ]
Comments