A279627 Engel expansion of the Glaisher-Kinkelin constant A074962.

1, 4, 8, 27, 59, 188, 384, 427, 2525, 71429, 80727, 357492, 13200877, 65161876, 7439912342, 15555881542, 71559279848, 116275866868, 345574982189, 737460049244, 9183275685671, 12641946167319, 126181443702371

Offset

1,2

Comments

See A006784 for more details on the Engel expansion.

Links

Table of n, a(n) for n=1..23.

Example

1.2824271291006... = 1/1 + 1/(1*4) + 1/(1*4*8) + 1/(1*4*8*27) + ...

Mathematica

EngelExp[A_, n_] := Join[Array[1 &, Floor[A]], First@Transpose@NestList[{Ceiling[1/Expand[#[[1]] #[[2]] - 1]], Expand[#[[1]] #[[2]] - 1]} &, {Ceiling[1/(A - Floor[A])], A - Floor[A]}, n - 1]];
EngelExp[Glaisher, 22]

Crossrefs

Cf. A074962.

Sequence in context: A356646 A100411 A065405 * A026085 A036720 A110132

Adjacent sequences: A279624 A279625 A279626 * A279628 A279629 A279630

Keyword

nonn

Author

Benedict W. J. Irwin, Dec 16 2016

Status

approved