A112968 a(n) = Sum_{i+j=n} mu(i)*Omega(j), with mu=A008683 and Omega=A001222.

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

Author

Reinhard Zumkeller, Oct 07 2005

Keywords

• sign

Examples

			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.
		

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A013939, A112967, A068341, A112962, A112963, A112964, A112966.

Programs

Haskell

a112968 n = sum $ zipWith (*)
   a008683_list $ reverse $ take (n - 1) a001222_list
-- Reinhard Zumkeller, Feb 29 2012

Mathematica

A112968[n_]:=Plus@@Table[MoebiusMu[i]*PrimeOmega[n-i],{i,1,n-1}]; Array[A112968,200] (* Enrique Pérez Herrero, Feb 28 2012 *)

Extensions

Corrected by N. J. A. Sloane, Mar 01 2006