%I #20 Oct 30 2017 03:44:47
%S 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,
%T 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,
%U 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
%N Composite numbers mod 10.
%H G. C. Greubel, <a href="/A083786/b083786.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A002808(n) mod 10. - _Ray Chandler_, Sep 04 2003
%t Mod[Rest@ Select[Range@140, !PrimeQ@# &], 10] (* _Robert G. Wilson v_, Mar 17 2006 *)
%o (PARI) lista(nn) = forcomposite(n=2, nn, print1(n % 10, ", ")); \\ _Michel Marcus_, Oct 30 2017
%Y Cf. A002808, A007652.
%K nonn,easy
%O 1,1
%A _Roger L. Bagula_, Aug 21 2003
%E More terms from _Ray Chandler_, Sep 04 2003
%E Entries checked by _Robert G. Wilson v_, Mar 17 2006
|