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 A067921 #12 Apr 26 2025 20:10:11 %S A067921 1,4,76,134,213,1649,1955,2041,32363,217167,760577,1633080,6412486, %T A067921 24932290,25544312,376841489,426956719,472747939,765965856,2708004694, %U A067921 5814287795,14630348817,21857959576,92077240148,184486528542 %N A067921 Engel expansion of sqrt(Pi/2). %H A067921 G. C. Greubel, <a href="/A067921/b067921.txt">Table of n, a(n) for n = 1..1000</a> %t A067921 EngelExp[A_, n_] := Join[Array[1 &, Floor[A]], First@Transpose@ %t A067921 NestList[{Ceiling[1/Expand[#[[1]] #[[2]] - 1]], Expand[#[[1]] #[[2]] - 1]} &, {Ceiling[1/(A - Floor[A])], A - Floor[A]}, n - 1]]; EngelExp[N[Sqrt[Pi/2], 7!], 50] (* _G. C. Greubel_, Jan 12 2017 *) %o A067921 (PARI) s=sqrt(asin(1)); for(i=1,30,s=s*ceil(1/s)-1; print1(ceil(1/s),","); ); %Y A067921 See A006784 for explanation of Engel expansions. %K A067921 easy,nonn %O A067921 1,2 %A A067921 _Benoit Cloitre_, Mar 03 2002