|
Search: id:A088488
|
|
|
| A088488 |
|
A self similar Cantor type sequence with eight levels. |
|
+0
4
|
|
| 8, 17, 22, 26, 40, 43, 49, 66, 65, 69, 87, 87, 68, 109, 108, 109, 137, 130, 130, 157, 153, 133, 180, 174, 171, 211, 196, 191, 227, 218, 186, 250, 240, 232, 280, 262, 253, 298, 285, 164, 319, 304, 292, 350, 327, 313, 367, 349, 292, 390, 371, 354, 426, 393, 375
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
This sequence resembles a Conway $10000 type chaotic sequence in its plot
|
|
FORMULA
|
p[n_, k_]=n!/Product[i, {i, n-Floor[2*n/3^k], n-Floor[n/3^k]}] a(n) = Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}]
|
|
MATHEMATICA
|
p[n_, k_]=n!/Product[i, {i, n-Floor[2*n/3^k], n-Floor[n/3^k]}] digits=200 f[n_]=Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}] at=Table[f[n], {n, 2, digits}] (* fractal plot*) ListPlot[at, PlotJoined->True, PlotRange->All]
|
|
CROSSREFS
|
Cf. A004001.
Sequence in context: A075485 A023700 A026231 this_sequence A031458 A044991 A063594
Adjacent sequences: A088485 A088486 A088487 this_sequence A088489 A088490 A088491
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 09 2003
|
|
|
Search completed in 0.006 seconds
|
