%I #8 May 09 2018 23:00:20
%S 5,10,18,28,42,60,84,115,152,198,253,320,399,494,605,736,891,1072,
%T 1280,1521,1800,2120,2488,2910,3387,3934,4552,5250,6038,6929,7931,
%U 9057,10324,11733,13315,15076,17043,19224,21656,24361,27353,30660,34330,38382,42866
%N a(1) = 5; a(n+1) = a(n)-th nonprime, where nonprimes begin at 4.
%H Chai Wah Wu, <a href="/A025010/b025010.txt">Table of n, a(n) for n = 1..901</a>
%t g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 5, 45 ]
%Y Cf. A006508, A022450, A022451, A025011.
%K nonn
%O 1,1
%A _David W. Wilson_