A088661 A log based Cantor self similar sequence.

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, 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, 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

Offset

3,1

Links

Table of n, a(n) for n=3..107.

Formula

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}]

Mathematica

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}]

Crossrefs

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.

Sequence in context: A154400 A215734 A202953 * A329220 A127196 A350715

Adjacent sequences: A088658 A088659 A088660 * A088662 A088663 A088664

Keyword

nonn,uned

Author

Roger L. Bagula, Nov 21 2003

Status

approved