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,1

Links

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

Mathematica

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

Crossrefs

Cf. A006508, A022450, A022451, A025011.

Sequence in context: A035608 A091386 A164004 * A299144 A058555 A226445

Adjacent sequences: A025007 A025008 A025009 * A025011 A025012 A025013

Keyword

nonn

Author

David W. Wilson

Status

approved