|
| |
|
|
A088488
|
|
A self similar Cantor type sequence with eight levels.
|
|
3
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
COMMENTS
| 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 * A031458 A044991 A063594
Adjacent sequences: A088485 A088486 A088487 * A088489 A088490 A088491
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 09 2003
|
| |
|
|
