This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A168394 #2 Mar 31 2012 10:24:25 %S A168394 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, %T A168394 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, %U A168394 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 %N A168394 Moebius function of even interprimes (A072568). %p A168394 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); %Y A168394 Cf. A008683. %K A168394 sign %O A168394 1,1 %A A168394 _Jani Melik_, Nov 24 2009