|
| |
|
|
A022447
|
|
Fractal sequence of the dispersion of the primes.
|
|
2
| |
|
|
1, 1, 1, 2, 1, 3, 2, 4, 5, 6, 1, 7, 3, 8, 9, 10, 2, 11, 4, 12, 13, 14, 5, 15, 16, 17, 18, 19, 6, 20, 1, 21, 22, 23, 24, 25, 7, 26, 27, 28, 3, 29, 8, 30, 31, 32, 9, 33, 34, 35, 36, 37, 10, 38, 39, 40, 41, 42, 2, 43, 11, 44, 45, 46, 47, 48, 4
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
REFERENCES
| C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, vol. 45 p 157 1997.
|
|
|
LINKS
| C. Kimberling, Interspersions
|
|
|
MATHEMATICA
| m = 30; list = Table[Length[NestWhileList[PrimePi, n, PrimeQ]], {n, m}]; Table[Length@Position[Take[list, k], list[[k]]], {k, Length[list]}] (* Gyorgy Birkas, Apr 04 2011 *)
primefractal[n_]:= (# - PrimePi[#]) &@NestWhile[PrimePi, n, PrimeQ]; Array[primefractal, 30] (* Gyorgy Birkas, Apr 04 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A094173 A026272 A193564 * A117194 A024467 A117364
Adjacent sequences: A022444 A022445 A022446 * A022448 A022449 A022450
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Clark Kimberling (ck6(AT)evansville.edu)
|
| |
|
|
