A100586 Write down the numbers from 3 to infinity. Take next number, M say, that has not been crossed off. Counting through the numbers that have not yet been crossed off after that M, cross off every 5th term. Repeat, always crossing off every 5th term of those that remain. The numbers that are left form the sequence.

3, 4, 5, 6, 7, 9, 11, 14, 17, 21, 26, 32, 40, 50, 62, 77, 96, 120, 150, 187, 234, 292, 365, 456, 570, 712, 890, 1112, 1390, 1737, 2171, 2714, 3392, 4240, 5300, 6625, 8281, 10351, 12939, 16174, 20217, 25271, 31589, 39486, 49357, 61696, 77120

Offset: 1

Author

N. J. A. Sloane, Dec 01 2004

Keywords

• nonn

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]
• Index entries for sequences generated by sieves

Crossrefs

Cf. A003309, A003310, A100464, A100562, A003312, A003311, A052548, A100585.

Programs

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 *)