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

Author

G. C. Greubel, Dec 25 2016

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000
• Eric Weisstein's World of Mathematics, Pierce Expansion
• Wikipedia, Engel Expansion

Crossrefs

Cf. A073747 (coth(1)).

Programs

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]