function sequence(n,color)
   m=1000;
   x=linspace(0,100,m);
   y=sin(n*x)/sqrt(n);
   plot(x,y,color)