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 A088661 #6 Mar 30 2012 17:34:13
%S A088661 8,8,7,6,7,8,8,7,6,8,8,7,7,8,8,7,7,8,8,5,7,8,8,7,6,8,8,7,7,8,8,7,7,8,
%T A088661 8,6,7,8,8,7,5,8,8,7,7,8,8,7,7,8,8,6,7,8,8,7,6,8,8,7,7,8,8,7,7,8,8,6,
%U A088661 7,8,8,7,6,8,8,7,7,8,8,7,7,8,8,4,7,8,8,7,6,8,8,7,7,8,8,7,7,8,8,6,7,8,8,7,5
%N A088661 A log based Cantor self similar sequence.
%F A088661 p[n_, k_]=Sum[Log[i], {i, 1, n}]/Sum[Log[i], {i, n-Floor[3*n/4^k], n-Floor[n/4^k]}] a(n) = Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}]
%t A088661 p[n_, k_]=Sum[Log[i], {i, 1, n}]/Sum[Log[i], {i, n-Floor[3*n/4^k], n-Floor[n/4^k]}] digits=200 f[n_]=Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}] at=Table[f[n], {n, 3, digits}]
%Y A088661 Cf. A088487 A self similar Sierpinski type chaotic sequence with rate three at eight levels. A088488 A self similar Cantor type sequence with eight levels.
%K A088661 nonn,uned
%O A088661 3,1
%A A088661 _Roger L. Bagula_, Nov 21 2003