OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Sum[ MoebiusMu[k]*MoebiusMu[n + 1 - k], {k, 1, n}]; Table[ a[n], {n, 1, 76}] (* Jean-François Alcover, Oct 10 2011 *)
PROG
(Haskell)
a068341 n = a068341_list !! (n-1)
a068341_list = f 1 [] where
f x ms = (sum $ zipWith (*) ms' $ reverse ms') : f (x + 1) ms' where
ms' = (a008683 x) : ms
-- Reinhard Zumkeller, Aug 03 2012
CROSSREFS
KEYWORD
sign
AUTHOR
Leroy Quet, Feb 27 2002
STATUS
approved