A176809 - OEIS

%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