A279627 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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