|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|