|
Search: id:A088494
|
|
|
| A088494 |
|
A fractal self similar Sierpinski type sequence based on the primes. |
|
+0
1
|
|
| 15, 20, 32, 36, 48, 41, 64, 72, 80, 78, 96, 81, 112, 120, 128, 120, 144, 94, 160, 168, 176, 162, 192, 200, 208, 216, 224, 177, 240, 218, 256, 264, 272, 280, 288, 195, 304, 312, 320, 288, 336, 261, 352, 360, 368, 330, 384, 392, 400, 408, 416, 212, 432, 440, 448
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
This sequence mixes natural chaotic behavior with self similar behavior to give a new kind of sequence. It looks very much like Per Bak's sand pile type behavior. Some of the subsequences involved should give composite set like results.
|
|
FORMULA
|
p[n_, k_]=n!/Product[Prime[i], {i, 1, PrimePi[n]/2^(k-1)}] a(n) = Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}]
|
|
MATHEMATICA
|
p[n_, k_]=n!/Product[Prime[i], {i, 1, PrimePi[n]/2^(k-1)}] digits=200 f[n_]=Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}] a0=Table[f[n], {n, 2, digits}] (* fractal plot*) ListPlot[a0, PlotRange->All, PlotJoined->True]
|
|
CROSSREFS
|
Cf. A088140.
Adjacent sequences: A088491 A088492 A088493 this_sequence A088495 A088496 A088497
Sequence in context: A074236 A086770 A111200 this_sequence A109659 A065148 A093028
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 10 2003
|
|
|
Search completed in 0.003 seconds
|
