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 A022450 #11 Jun 24 2025 15:32:34 %S A022450 2,6,12,21,33,49,69,94,125,164,212,270,339,422,520,636,774,933,1121, %T A022450 1339,1590,1880,2210,2587,3021,3512,4074,4710,5427,6239,7155,8183, %U A022450 9339,10637,12084,13705,15517,17534,19773,22266,25030,28095,31484,35239,39387,43960 %N A022450 a(1) = 2; a(n+1) = a(n)-th composite. %D A022450 C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, vol. 45 p 157 1997. %H A022450 Chai Wah Wu, <a href="/A022450/b022450.txt">Table of n, a(n) for n = 1..900</a> %H A022450 C. Kimberling, <a href="http://faculty.evansville.edu/ck6/integer/intersp.html">Interspersions</a> %t A022450 g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 2, 45 ] %t A022450 With[{cmps=Select[Range[100000],CompositeQ]},NestList[cmps[[#]]&,2,50]] (* _Harvey P. Dale_, Jun 24 2025 *) %Y A022450 Cf. A006508, A022451, A025010, A025011. %K A022450 nonn %O A022450 1,1 %A A022450 _Clark Kimberling_