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 A067919 #21 Apr 26 2025 20:09:19
%S A067919 2,2,3,11,14,27,28,66,212,231,552,2842,3774,6038,6784,10950,32948,
%T A067919 78591,97875,98342,123569,139837,159698,1102838,3256476,20329622,
%U A067919 34385124,60999878,82669919,85820365,389915995,4274338879,18907353107,62875944378,74931184173
%N A067919 Engel expansion of sin(1).
%e A067919 sin(1) = 0.84147... = A049469 has the Engel expansion 1/2 + 1/(2*2) + 1/(2*2*3) + ...
%t A067919 EngelExp[A_,n_]:=Join[Array[1&,Floor[A]],First@Transpose@NestList[{Ceiling[1/Expand[ #[[1]]#[[2]]-1]],Expand[ #[[1]]#[[2]]-1]}&,{Ceiling[1/(A-Floor[A])],A-Floor[A]},n-1]]; EngelExp[N[Sin[1],6! ],50] (* _Vladimir Joseph Stephan Orlovsky_, Jun 13 2009 *)
%o A067919 (PARI) s=sin(1); for(i=1,30,s=s*ceil(1/s)-1; print1(ceil(1/s),","); );
%Y A067919 See A006784 for explanation of Engel expansions.
%Y A067919 Cf. A049469, A084651, A084652.
%K A067919 easy,nonn
%O A067919 1,1
%A A067919 _Benoit Cloitre_, Mar 03 2002
%E A067919 a(1) inserted by Hauke Worpel (hw1(AT)email.com), Jun 01 2003
%E A067919 Edited by _N. J. A. Sloane_, Nov 01 2008 at the suggestion of _R. J. Mathar_