A022446 Fractal sequence of the dispersion of the composite numbers.

1, 2, 3, 1, 4, 2, 5, 3, 1, 4, 6, 2, 7, 5, 3, 1, 8, 4, 9, 6, 2, 7, 10, 5, 3, 1, 8, 4, 11, 9, 12, 6, 2, 7, 10, 5, 13, 3, 1, 8, 14, 4, 15, 11, 9, 12, 16, 6, 2, 7, 10, 5, 17, 13, 3, 1, 8, 14, 18, 4, 19, 15, 11, 9, 12, 16, 20, 6, 2, 7, 21, 10, 22, 5, 17, 13, 3, 1

Offset

0,2

References

C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, vol. 45 p 157 1997.

Links

Table of n, a(n) for n=0..77.

C. Kimberling, Interspersions

Mathematica

compositePi[n_] := Length[Select[Table[FixedPoint[i + PrimePi[#] + 1 &, i + PrimePi[i] + 1], {i, n}], # <= n &]]; compositefractal[n_] :=  PrimePi[NestWhile[compositePi, n, ! PrimeQ[#] && # != 1 &]] + 1; Array[compositefractal, 30] (* Birkas Gyorgy, Apr 05 2011 *)

Crossrefs

Sequence in context: A378192 A286001 A304106 * A122196 A023117 A023127

Adjacent sequences: A022443 A022444 A022445 * A022447 A022448 A022449

Keyword

nonn

Author

Clark Kimberling

Status

approved