login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%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_