A084301 a(n) = sigma(n) mod 6.
1, 3, 4, 1, 0, 0, 2, 3, 1, 0, 0, 4, 2, 0, 0, 1, 0, 3, 2, 0, 2, 0, 0, 0, 1, 0, 4, 2, 0, 0, 2, 3, 0, 0, 0, 1, 2, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 4, 3, 3, 0, 2, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 1, 0, 0, 2, 0, 0, 0, 0, 3, 2, 0, 4, 2, 0, 0, 2, 0, 1, 0, 0, 2, 0, 0, 0, 0, 0, 0, 4, 0, 2, 0, 0, 0, 2, 3, 0, 1, 0, 0, 2, 0, 0
Offset: 1
Links
Crossrefs
Programs
-
Maple
A084301:= n-> (numtheory[sigma](n) mod 6): seq (A084301(n), n=1..105); # Jani Melik, Jan 26 2011
-
Mathematica
Table[Mod[DivisorSigma[1,n],6],{n,120}] (* Harvey P. Dale, Apr 07 2011 *)
-
PARI
a(n)=sigma(n)%6 \\ Charles R Greathouse IV, Mar 09 2014