A280093 Pierce Expansion of coth(1).

1, 3, 16, 38, 42, 139, 168, 385, 633, 942, 1728, 3017, 3842, 17453, 32989, 39408, 177334, 268130, 822437, 1522942, 3247926, 5937944, 22736433, 34285758, 51598089, 57736381, 105470828, 173010552, 541826347, 1758595979, 1803356572, 3331293851, 3545862229

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Eric Weisstein's World of Mathematics, Pierce Expansion

Wikipedia, Engel Expansion

Mathematica

PierceExp[A_, n_] := Join[Array[1 &, Floor[A]], First@Transpose@
NestList[{Floor[1/Expand[1 - #[[1]] #[[2]]]], Expand[1 - #[[1]] #[[2]]]} &, {Floor[1/(A - Floor[A])], A - Floor[A]}, n - 1]]; PierceExp[N[Coth[1] , 7!], 50]

Crossrefs

Cf. A073747 (coth(1)).

Sequence in context: A196596 A196573 A196804 * A081270 A271374 A147874

Adjacent sequences: A280090 A280091 A280092 * A280094 A280095 A280096

Keyword

nonn

Author

G. C. Greubel, Dec 25 2016

Status

approved