A078580 Moebius function mu of the average of n-th twin prime pair.

0, 1, 0, 0, -1, -1, 0, 0, -1, 0, -1, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 1, 0, 1, 0, -1, -1, 0, 0, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, -1, 1, 0, 0, -1, 0, 0, 0, 0, -1, 0, 0, 1, 0, -1, 0, -1, 0, -1, 0, 0, -1, 0, 0, -1, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, -1, 0, 0, 0, 0, 0

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A008683(A014574(n)).

Mathematica

midQ[n_] := PrimeQ[n-1] && PrimeQ[n+1]; MoebiusMu[Select[Range[4000], midQ]] (* Amiram Eldar, Nov 03 2019 *)

Crossrefs

Cf. A008683, A014574, A078579.

Sequence in context: A108736 A362240 A079813 * A059651 A286339 A244735

Adjacent sequences: A078577 A078578 A078579 * A078581 A078582 A078583

Keyword

sign

Author

Reinhard Zumkeller, Nov 29 2002

Status

approved