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

Links

Table of n, a(n) for n=1..94.

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);

Crossrefs

Cf. A008683.

Sequence in context: A267810 A267927 A030300 * A072770 A090172 A284369

Adjacent sequences: A168391 A168392 A168393 * A168395 A168396 A168397

Keyword

sign

Author

Jani Melik, Nov 24 2009

Status

approved