A025011 a(1) = 7; a(n+1) = a(n)-th composite.

7, 14, 24, 36, 52, 74, 100, 133, 174, 222, 284, 356, 442, 543, 665, 805, 969, 1161, 1383, 1643, 1939, 2278, 2665, 3108, 3614, 4189, 4840, 5577, 6412, 7348, 8400, 9584, 10912, 12392, 14049, 15903, 17963, 20253, 22801, 25624, 28757, 32214, 36044, 40273, 44943

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..901

Crossrefs

Cf. A006508, A025010.

Programs

Mathematica

g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 7, 45 ]
With[{cmps=Select[Range[100000],CompositeQ]},NestList[cmps[[#]]&,7,50]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 08 2017 *)