Table[BaseForm[k^2+k,2],{ k,1,50}]