%I #6 Mar 30 2012 17:34:13
%S 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 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 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 A log based Cantor self similar sequence.
%F 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 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 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 nonn,uned
%O 3,1
%A _Roger L. Bagula_, Nov 21 2003
|