|
%I #17 Jul 04 2019 14:29:19
%S 1,1,1,1,2,1,1,2,2,1,1,3,2,3,1,1,3,3,3,3,1,1,4,4,4,4,4,1,1,4,4,5,5,4,
%T 4,1,1,5,5,6,6,6,5,5,1,1,5,6,6,7,7,6,6,5,1,1,6,6,7,8,8,8,7,6,6,1,1,6,
%U 7,8,8,9,9,8,8,7,6,1,1,7,8,9,9,10,10,10,9,9,8,7,1
%N Triangle read by rows: T(n,m) = 1 - (ceiling((n-1)/m) + ceiling((n-1)/(n-m+1))) + ceiling((n-1)/1) + ceiling((n-1)/(n-1+1)).
%C Row sums are {1, 2, 4, 6, 10, 14, 22, 28, 40, 50, ...}.
%F T(n,m) = 1 - (ceiling((n-1)/m) + ceiling((n-1)/(n-m+1))) + ceiling((n-1)/1) + ceiling((n-1)/(n-1+1)).
%e {1},
%e {1, 1},
%e {1, 2, 1},
%e {1, 2, 2, 1},
%e {1, 3, 2, 3, 1},
%e {1, 3, 3, 3, 3, 1},
%e {1, 4, 4, 4, 4, 4, 1},
%e {1, 4, 4, 5, 5, 4, 4, 1},
%e {1, 5, 5, 6, 6, 6, 5, 5, 1},
%e {1, 5, 6, 6, 7, 7, 6, 6, 5, 1}
%t t[n_, m_] = 1 - (Ceiling[(n - 1)/m] + Ceiling[(n - 1)/(n - m + 1)]) + Ceiling[(n - 1)/1] + Ceiling[(n - 1)/(n - 1 + 1)];
%t Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}];
%t Flatten[%]
%Y Cf. A176298.
%K nonn,tabl
%O 1,5
%A _Roger L. Bagula_, Apr 26 2010
%E Offset corrected by _Alois P. Heinz_, Jul 04 2019
|
