Table[Round[n/m] - Round[(n - 1)/m], {n, 1, 16}] where m = 3/17