login
A112968
a(n) = Sum_{i+j=n} mu(i)*Omega(j), with mu=A008683 and Omega=A001222.
6
0, 0, 1, 0, 0, -2, -2, -2, -2, -2, -6, -2, -4, -2, -7, -1, -5, 0, -7, -3, -9, 1, -11, 2, -7, 1, -12, 1, -11, 7, -8, -5, -8, -1, -18, 3, -10, 1, -13, 1, -7, 13, -12, -2, -13, 6, -16, 3, -11, 3, -15, -4, -16, 13, -15, -4, -15, 4, -17, 11, -14, 4, -13, 7, -12, 15, -17, -5, -15, 16, -13, 3, -12, 3, -20, 3, -27, 19, -20, -3, -11, 3
OFFSET
1,6
LINKS
EXAMPLE
a(5) = mu(1)*Omega(4)+mu(2)*Omega(3)+mu(3)*Omega(2)+mu(4)*Omega(1) = 1*2 - 1*1 - 1*1 + 0*1 = 0.
MATHEMATICA
A112968[n_]:=Plus@@Table[MoebiusMu[i]*PrimeOmega[n-i], {i, 1, n-1}]; Array[A112968, 200] (* Enrique Pérez Herrero, Feb 28 2012 *)
PROG
(Haskell)
a112968 n = sum $ zipWith (*)
a008683_list $ reverse $ take (n - 1) a001222_list
-- Reinhard Zumkeller, Feb 29 2012
KEYWORD
sign
AUTHOR
Reinhard Zumkeller, Oct 07 2005
EXTENSIONS
Corrected by N. J. A. Sloane, Mar 01 2006
STATUS
approved