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

5, 9, 15, 24, 35, 50, 69, 93, 123, 160, 206, 261, 327, 406, 501, 612, 744, 898, 1078, 1286, 1527, 1806, 2125, 2492, 2913, 3390, 3936, 4553, 5250, 6036, 6926, 7926, 9051, 10316, 11723, 13302, 15060, 17022, 19198, 21627, 24328, 27317, 30619, 34281, 38326, 42802

Offset

1,1

Links

Table of n, a(n) for n=1..46.

Mathematica

Module[{nn=100000, np}, np=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]; Flatten[NestList[np[[#]]&, {5}, 50]]] (* Harvey P. Dale, Dec 02 2014 *)

Crossrefs

Sequence in context: A315082 A315083 A294020 * A074953 A023498 A256343

Adjacent sequences: A025002 A025003 A025004 * A025006 A025007 A025008

Keyword

nonn

Author

David W. Wilson

Status

approved