A231821 a(n) = mu(n) + 3, where mu is the Mobius function (A008683).
4, 2, 2, 3, 2, 4, 2, 3, 3, 4, 2, 3, 2, 4, 4, 3, 2, 3, 2, 3, 4, 4, 2, 3, 3, 4, 3, 3, 2, 2, 2, 3, 4, 4, 4, 3, 2, 4, 4, 3, 2, 2, 2, 3, 3, 4, 2, 3, 3, 3, 4, 3, 2, 3, 4, 3, 4, 4, 2, 3, 2, 4, 3, 3, 4, 2, 2, 3, 4, 2, 2, 3, 2, 4, 3, 3, 4, 2, 2, 3, 3, 4, 2, 3, 4, 4
Offset: 1
Examples
a(6) = 4; mu(6) + 3 = 1 + 3 = 4.
Links
Programs
-
Maple
with(numtheory); a:=n->mobius(n)+3; seq(a(n), n=1..100);
-
Mathematica
Table[MoebiusMu[n] + 3, {n, 100}]
-
PARI
a(n) = moebius(n) + 3; \\ Michel Marcus, Nov 14 2013
-
Scheme
(define (A231821 n) (+ 3 (A008683 n))) ;; Antti Karttunen, Jul 26 2017
Comments