%I #5 Feb 18 2016 14:33:50
%S 0,1,0,2,1,0,3,1,1,0,4,2,1,1,0,5,2,1,1,1,0,6,3,2,1,1,1,0,7,3,2,1,1,1,
%T 1,0,8,4,2,2,1,1,1,1,0,9,4,3,2,1,1,1,1,1,0
%N Triangle read by rows: T(n,m)=Floor[(n - 1)/m], 1<=m<=n.
%C A010766 augmented by trailing zeros.
%D F. S. Roberts, Applied Combinatorics, Prentice-Hall, 1984, p. 321.
%e 0;
%e 1, 0;
%e 2, 1, 0;
%e 3, 1, 1, 0;
%e 4, 2, 1, 1, 0;
%e 5, 2, 1, 1, 1, 0;
%e 6, 3, 2, 1, 1, 1, 0;
%e 7, 3, 2, 1, 1, 1, 1, 0;
%e 8, 4, 2, 2, 1, 1, 1, 1, 0;
%e 9, 4, 3, 2, 1, 1, 1, 1, 1, 0;
%p A176808 := proc(n,m)
%p floor((n-1)/m) ;
%p end proc: # _R. J. Mathar_, Feb 18 2016
%t t[n_, m_] = Floor[(n - 1)/m];
%t Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}];
%t Flatten[%]
%Y Cf. A006218 (row sums), A174557.
%K nonn,tabl,easy
%O 1,4
%A _Roger L. Bagula_, Apr 26 2010
|