plot Boole[Not[IntegerQ[x]]] for x from -7 to 7