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 A108905 #5 Oct 31 2013 12:17:27
%S A108905 1,1,2,6,51,114,136,149,1388,3654,3961,41614,2975365,4120126,5760908,
%T A108905 11210809,21235067,43239302,156258546,230627452,595763433,4709180601,
%U A108905 148918280487,841708059551,2895551449652,5660433533409,6575950336213
%N A108905 Engel series expansion for Sierpinski's constant.
%t A108905 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[ Pi(-Log[Pi] + 2EulerGamma + 4LogGamma[3/4]), 2^8], 25] (* _Robert G. Wilson v_ *)
%Y A108905 Cf. A062089, A006784.
%K A108905 nonn
%O A108905 0,3
%A A108905 Hauke Worpel (hw1(AT)email.com), Jul 17 2005
%E A108905 a(11) - a(26) from _Robert G. Wilson v_, Jul 21 2005