OFFSET
1,1
MAPLE
ts_fip_lih:=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), tren ]: an:=[ op(an), numtheory[mobius](tren) ]: fi: od: RETURN(an) end: ts_fip_lih(2000);
CROSSREFS
KEYWORD
sign
AUTHOR
Jani Melik, Nov 24 2009
STATUS
approved