|
|
A280093
|
|
Pierce Expansion of coth(1).
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|