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

1, 4, 6, 13, 16, 31, 131, 231, 578, 905, 1649, 4810, 5999, 10249, 11962, 21338, 229345, 404066, 772217, 1646462, 2129025, 235494066, 559730937, 1287457726, 1549953698, 2919657850, 23892156516, 52085560558, 70347157214

Offset: 1

Author

Olivier Gérard, Jul 10 2001

Keywords

• nonn
• easy
• nice

Comments

Shgz(3) = 1.2950786268784303709733480860835436581...

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 ]