A168394 Moebius function of even interprimes (A072568).

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

Offset: 1

Author

Jani Melik, Nov 24 2009

Keywords

• sign

Crossrefs

Cf. A008683.

Programs

Maple

ts_fip_sod:=proc(n) local i,an,tren: an:=[ ]: for i from 2 to n do tren:=(ithprime(i)+ithprime(i+1))/2: if (tren mod 2 = 0) then an:=[ op(an), numtheory[mobius](tren) ]: fi: od: RETURN(an) end: ts_fip_sod(1000);