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 A022451 #12 May 13 2018 10:13:14 %S A022451 3,8,15,25,38,55,77,105,140,183,235,298,372,462,566,692,838,1007,1205, %T A022451 1432,1698,2002,2352,2755,3210,3731,4322,4990,5747,6601,7562,8638, %U A022451 9854,11211,12731,14422,16315,18425,20765,23372,26258,29460,32998,36912,41229 %N A022451 a(1) = 3; a(n+1) = a(n)-th composite. %D A022451 C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, vol. 45 p 157 1997. %H A022451 Chai Wah Wu, <a href="/A022451/b022451.txt">Table of n, a(n) for n = 1..900</a> %H A022451 C. Kimberling, <a href="http://faculty.evansville.edu/ck6/integer/intersp.html">Interspersions</a> %t A022451 g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 3, 45 ] %t A022451 With[{comps=Complement[Range[80000],Prime[Range[PrimePi[80000]]]]}, NestList[comps[[#+1]]&,3,50]] (* _Harvey P. Dale_, Mar 17 2012 *) %Y A022451 Cf. A006508, A022450, A025010, A025011. %K A022451 nonn %O A022451 1,1 %A A022451 _Clark Kimberling_