Table[Mod[Floor[Erf[(x-1)/78]*15018],2],{x,41,53,1/4}]