login
A025005
a(1) = 5; a(n+1) = a(n)-th nonprime, where nonprimes begin at 1.
0
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
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
KEYWORD
nonn
STATUS
approved