A025010 a(1) = 5; a(n+1) = a(n)-th nonprime, where nonprimes begin at 4.

5, 10, 18, 28, 42, 60, 84, 115, 152, 198, 253, 320, 399, 494, 605, 736, 891, 1072, 1280, 1521, 1800, 2120, 2488, 2910, 3387, 3934, 4552, 5250, 6038, 6929, 7931, 9057, 10324, 11733, 13315, 15076, 17043, 19224, 21656, 24361, 27353, 30660, 34330, 38382, 42866

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

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

Crossrefs

Cf. A006508, A022450, A022451, A025011.

Programs

Mathematica

g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 5, 45 ]