Table[Count[Mod[Range[1, 2014], 16], n],{n,{0,1,4,5,9,12,13}}]