A083786 Composite numbers mod 10.

4, 6, 8, 9, 0, 2, 4, 5, 6, 8, 0, 1, 2, 4, 5, 6, 7, 8, 0, 2, 3, 4, 5, 6, 8, 9, 0, 2, 4, 5, 6, 8, 9, 0, 1, 2, 4, 5, 6, 7, 8, 0, 2, 3, 4, 5, 6, 8, 9, 0, 2, 4, 5, 6, 7, 8, 0, 1, 2, 4, 5, 6, 7, 8, 0, 1, 2, 3, 4, 5, 6, 8, 9, 0, 2, 4, 5, 6, 8, 0, 1, 2, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5, 6, 8, 9, 0, 2, 3, 4, 5, 6, 8, 0

Offset

1,1

Links

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

Formula

a(n) = A002808(n) mod 10. - Ray Chandler, Sep 04 2003

Mathematica

Mod[Rest@ Select[Range@140, !PrimeQ@# &], 10] (* Robert G. Wilson v, Mar 17 2006 *)
(* Alternative: *)
Mod[Select[Range[150], CompositeQ], 10] (* Harvey P. Dale, Jul 04 2026 *)

Prog

(PARI) lista(nn) = forcomposite(n=2, nn, print1(n % 10, ", ")); \\ Michel Marcus, Oct 30 2017

Crossrefs

Cf. A002808, A007652.

Sequence in context: A373042 A183005 A103189 * A199976 A165957 A338028

Adjacent sequences: A083783 A083784 A083785 * A083787 A083788 A083789

Keyword

nonn,easy,changed

Author

Roger L. Bagula, Aug 21 2003

Extensions

More terms from Ray Chandler, Sep 04 2003

Entries checked by Robert G. Wilson v, Mar 17 2006

Status

approved