main=fmap read getLine>>=(\l->print$length[0|m<-[3,5..l],n<-[1,3..minimum[m,l`div`(4*m)-m]],gcd m n<2])