A074943 a(n) = tau(n) mod 3.
1, 2, 2, 0, 2, 1, 2, 1, 0, 1, 2, 0, 2, 1, 1, 2, 2, 0, 2, 0, 1, 1, 2, 2, 0, 1, 1, 0, 2, 2, 2, 0, 1, 1, 1, 0, 2, 1, 1, 2, 2, 2, 2, 0, 0, 1, 2, 1, 0, 0, 1, 0, 2, 2, 1, 2, 1, 1, 2, 0, 2, 1, 0, 1, 1, 2, 2, 0, 1, 2, 2, 0, 2, 1, 0, 0, 1, 2, 2, 1, 2, 1, 2, 0, 1, 1, 1, 2, 2, 0, 1, 0, 1, 1, 1, 0, 2, 0, 0, 0, 2, 2, 2, 2, 2
Offset: 1
Links
Programs
-
Mathematica
Mod[DivisorSigma[0,Range[110]],3] (* Harvey P. Dale, Dec 22 2013 *)
-
PARI
a(n)=numdiv(n)%3
-
Scheme
(define (A074943 n) (modulo (A000005 n) 3)) ;; Antti Karttunen, Jul 26 2017
Formula
From Amiram Eldar, Apr 16 2024: (Start)