Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Dec 02 2014 17:48:32
%S 5,9,15,24,35,50,69,93,123,160,206,261,327,406,501,612,744,898,1078,
%T 1286,1527,1806,2125,2492,2913,3390,3936,4553,5250,6036,6926,7926,
%U 9051,10316,11723,13302,15060,17022,19198,21627,24328,27317,30619,34281,38326,42802
%N a(1) = 5; a(n+1) = a(n)-th nonprime, where nonprimes begin at 1.
%t Module[{nn=100000,np},np=Complement[Range[nn],Prime[Range[PrimePi[nn]]]];Flatten[NestList[np[[#]]&,{5},50]]] (* _Harvey P. Dale_, Dec 02 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_