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,6

Links

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

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

Crossrefs

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

Sequence in context: A225953 A278247 A160762 * A263407 A377059 A221838

Adjacent sequences: A112965 A112966 A112967 * A112969 A112970 A112971

Keyword

sign

Author

Reinhard Zumkeller, Oct 07 2005

Extensions

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

Status

approved