for i=1to 105?n/2:n=n+3^log(and(i,-i),2)+1next