OFFSET
1,1
LINKS
Popular Computing (Calabasas, CA), Sieves: Problem 43, Vol. 2 (No. 13, Apr 1974), pp. 6-7. This is Sieve #6 with K=5. [Annotated and scanned copy]
MATHEMATICA
t = Range[3, 80000]; r = {}; While[Length[t] > 0, AppendTo[r, First[t]]; t = Drop[t, {1, -1, 5}]; ]; r (* Ray Chandler, Dec 02 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 01 2004
STATUS
approved