plot Table[(sin(n+1500))^(n+1500),{n,1,1000,1}]