A321201 Irregular triangle T with the nontrivial solutions of 2*e2 + 3*e3 = n, for n >= 2, with nonnegative e2 and e3, ordered as pairs with increasing e2 values.
1, 0, 0, 1, 2, 0, 1, 1, 0, 2, 3, 0, 2, 1, 1, 2, 4, 0, 0, 3, 3, 1, 2, 2, 5, 0, 1, 3, 4, 1, 0, 4, 3, 2, 6, 0, 2, 3, 5, 1, 1, 4, 4, 2, 7, 0, 0, 5, 3, 3, 6, 1, 2, 4, 5, 2, 8, 0, 1, 5, 4, 3, 7, 1, 0, 6, 3, 4, 6, 2, 9, 0, 2, 5, 5, 3, 8, 1, 1, 6, 4, 4, 7, 2, 10, 0
Offset: 2
Examples
The triangle T(n, k) begins (pairs are separated by commas): n\k 0 1 2 3 4 5 6 7 ... 2: 1 0 3: 0 1 4: 2 0 5: 1 1 6: 0 2, 3 0 7: 2 1 8: 1 2, 4 0 9: 0 3, 3 1 10: 2 2, 5 0 11: 1 3, 4 1 12: 0 4, 3 2, 6 0 13: 2 3, 5 1, 14: 1 4, 4 2, 7 0 15: 0 5, 3 3, 6 1 16: 2 4, 5 2, 8 0 17: 1 5, 4 3, 7 1 18: 0 6, 3 4, 6 2, 9 0 19: 2 5, 5 3, 8 1 20: 1 6, 4 4, 7 2, 10 0 ... n=8: the two solutions of 2*e2 + 3*e3 = 8 are [e2, e3] = [1, 2] and = [4, 0], and 1 < 4, therefore row 8 is 1 2 4 0, with a comma after the first pair.
Programs
-
Mathematica
row[n_] := Reap[Do[If[2 e2 + 3 e3 == n, Sow[{e2, e3}]], {e2, 0, n/2}, {e3, 0, n/3}]][[2, 1]]; Table[row[n], {n, 2, 20}] // Flatten (* Jean-François Alcover, Nov 23 2018 *)
Formula
T(n, k) gives all pairs [e2, e3] solving 2*e2 + 3*e3 = n, ordered with increasing value of e2, for n >= 2. The trivial solution [0, 0] for n = 0 is not recorded. There is no solution for n = 1.
Extensions
Missing row 2 inserted by Jean-François Alcover, Nov 23 2018
Comments