A164028 The n-th composite minus 3.

1, 3, 5, 6, 7, 9, 11, 12, 13, 15, 17, 18, 19, 21, 22, 23, 24, 25, 27, 29, 30, 31, 32, 33, 35, 36, 37, 39, 41, 42, 43, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 57, 59, 60, 61, 62, 63, 65, 66, 67, 69, 71, 72, 73, 74, 75, 77, 78, 79, 81, 82, 83, 84, 85, 87, 88, 89, 90, 91, 92, 93

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Formula

a(n) = A002808(n) - 3.

Example

a(1)=4-3=1. a(2)=6-3=3. a(3)=8-3=5. a(4)=6(=9-3).

Mathematica

Select[Range[100], CompositeQ]-3 (* Harvey P. Dale, Oct 04 2015 *)

Prog

(PARI) lista(nn) = forcomposite(n=1, nn, print1(n-3, ", ")); \\ Michel Marcus, Sep 08 2017

Crossrefs

Cf. A002808, A040976.

Sequence in context: A321321 A154611 A189669 * A301729 A047273 A342051

Adjacent sequences: A164025 A164026 A164027 * A164029 A164030 A164031

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Aug 08 2009

Extensions

Entries checked by R. J. Mathar, Aug 11 2009

Status

approved