Table[Binomial[Max[s-1,0],2] - 2*Binomial[Max[s-7,0],2]+ Binomial[Max[s-13,0],2], {s,2,16}]