This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A022446 #10 Apr 12 2014 19:27:19
%S A022446 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,
%T A022446 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,
%U A022446 15,11,9,12,16,20,6,2,7,21,10,22,5,17,13,3,1
%N A022446 Fractal sequence of the dispersion of the composite numbers.
%D A022446 C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, vol. 45 p 157 1997.
%H A022446 C. Kimberling, <a href="http://faculty.evansville.edu/ck6/integer/intersp.html">Interspersions</a>
%t A022446 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 *)
%K A022446 nonn
%O A022446 0,2
%A A022446 _Clark Kimberling_