Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Revision History for A275416

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Triangle read by rows: T(n,k) is the number of multisets of k odd numbers with a cap of the total sum set to n.
(history; published version)
#30 by Joerg Arndt at Sat Dec 22 03:32:34 EST 2018
STATUS

proposed

approved

#29 by Jon E. Schoenfield at Sat Dec 22 02:32:13 EST 2018
STATUS

editing

proposed

#28 by Jon E. Schoenfield at Sat Dec 22 02:32:11 EST 2018
FORMULA

T(n,k) = Sum_{c_i*N_i=n,i=1..k} binomial(T(N_i,1)+c_i-1,c_i) for 1 < k <= n.

EXAMPLE

T(6,2) = 3+2+3 = 8 counts {1,1} {1,3}, and {3,3} from taking two odd numbers <= 3; it counts {1,1} and {1,3} from taking an odd number <= 2 and an odd number <= 4; and it counts {1,1}, {1,3} and {1,5} from taking an odd number <= 1 and an odd number <= 5.

T(6,3) = 1+2+2 = 5 counts {1,1,1} from taking three odd numbers <= 2; it counts {1,1,1} and {1,1,3} from taking an odd number <= 1 and an odd number <= 2 and an odd number <= 3; and it counts {1,1,1} and {1,1,3} from taking two odd numbers <= 1 and an odd number <= 4.

STATUS

proposed

editing

#27 by Michel Marcus at Sat Dec 22 01:58:45 EST 2018
STATUS

editing

proposed

#26 by Michel Marcus at Sat Dec 22 01:58:37 EST 2018
NAME

Triangle read by rows: T(n,k) = is the number of multisets of k odd numbers with a cap of the total sum set to n.

EXAMPLE

T(6,3)= 1+2+2 = 5 counts {1,1,1} from taking three odd numbers <=2; it counts {1,1,1} and {1,1,3} from taking an odd number <=1 and an odd number <=2 and an odd number <=3; and it counts {1,1,1} and {1,1,3} rom from taking two odd numbers <=1 and an odd number <= 4.

STATUS

approved

editing

Discussion
Sat Dec 22
01:58
Michel Marcus: typo: rom
#25 by Michel Marcus at Sat May 19 02:24:12 EDT 2018
STATUS

reviewed

approved

#24 by Joerg Arndt at Sat May 19 02:20:25 EDT 2018
STATUS

proposed

reviewed

#23 by Jean-François Alcover at Sat May 19 02:11:56 EDT 2018
STATUS

editing

proposed

#22 by Jean-François Alcover at Sat May 19 02:11:49 EDT 2018
MATHEMATICA

b[n_, i_, p_] := b[n, i, p] = If[p > n, 0, If[n == 0, 1, If[Min[i, p] < 1, 0, Sum[b[n - i*j, i - 1, p - j]*Binomial[Ceiling[i/2] + j - 1, j], {j, 0, Min[n/i, p]}]]]];

T[n_, k_] := b[n, n, k];

Table[T[n, k], {n, 1, 16}, {k, 1, n}] // Flatten (* Jean-François Alcover, May 19 2018, after Alois P. Heinz *)

STATUS

approved

editing

#21 by Alois P. Heinz at Tue Sep 19 22:11:58 EDT 2017
STATUS

editing

approved