cp's OEIS Frontend

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.

A022450 a(1) = 2; a(n+1) = a(n)-th composite.

This page as a plain text file.
%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_