login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A022446 Fractal sequence of the dispersion of the composite numbers. 2
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 (list; graph; refs; listen; history; text; internal format)
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: A160541 A286001 A304106 * A122196 A023117 A023127

Adjacent sequences:  A022443 A022444 A022445 * A022447 A022448 A022449

KEYWORD

nonn

AUTHOR

Clark Kimberling

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 19 05:29 EST 2018. Contains 317333 sequences. (Running on oeis4.)