%I A088661
%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,8,
%T A088661 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,7,8,
%U A088661 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.
%Y A088661 Sequence in context: A140976 A021057 A154400 this_sequence A127196 A070481 
               A011109
%Y A088661 Adjacent sequences: A088658 A088659 A088660 this_sequence A088662 A088663 
               A088664
%K A088661 nonn,uned
%O A088661 3,1
%A A088661 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 21 2003