A168393 Moebius function of interprimes (A024675).

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

Offset

1,1

Links

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

Maple

ts_fip:=proc(n) local i, an: an:=[ ]: for i from 2 to n do an:=[ op(an), numtheory[mobius]((ithprime(i)+ithprime(i+1))/2) ]: od: RETURN(an) end: ts_fip(500);

Crossrefs

Cf. A008683.

Sequence in context: A372544 A104893 A104894 * A071986 A079944 A059652

Adjacent sequences: A168390 A168391 A168392 * A168394 A168395 A168396

Keyword

sign

Author

Jani Melik, Nov 24 2009

Status

approved