Select[Range[-50, 50], Mod[#, 4] == 1 &]