This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A280092 #10 Feb 16 2025 08:33:38 %S A280092 1,1,2,8,12,44,51,298,934,1041,2267,2668,13150,28929,42652,610672, %T A280092 1630027,2535276,5451792,14793658,32179208,38644893,45925185,59151658, %U A280092 80924233,118811249,273877246,611892649,1688111599,11265859421,22104337881,31986803107,104253472513 %N A280092 Pierce Expansion of tan(1). %H A280092 G. C. Greubel, <a href="/A280092/b280092.txt">Table of n, a(n) for n = 0..1000</a> %H A280092 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PierceExpansion.html">Pierce Expansion</a> %H A280092 Wikipedia, <a href="http://en.wikipedia.org/wiki/Engel_expansion">Engel Expansion</a> %t A280092 PierceExp[A_, n_] := Join[Array[1 &, Floor[A]], First@Transpose@ %t A280092 NestList[{Floor[1/Expand[1 - #[[1]] #[[2]]]], Expand[1 - #[[1]] #[[2]]]} &, {Floor[1/(A - Floor[A])], A - Floor[A]}, n - 1]]; PierceExp[N[Tan[1] , 7!], 50] %Y A280092 Cf. A049471 (tan(1)). %K A280092 nonn %O A280092 0,3 %A A280092 _G. C. Greubel_, Dec 25 2016