|
%I #2 Mar 31 2012 10:24:25
%S 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,
%T 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,
%U 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
%N Moebius function of interprimes (A024675).
%p 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);
%Y Cf. A008683.
%K sign
%O 1,1
%A _Jani Melik_, Nov 24 2009
|
