A069800 Triangular array in which n-th row consists of numbers with digit sum n arranged in increasing numerical order.
1, 2, 11, 3, 12, 21, 111, 4, 13, 22, 31, 112, 121, 211, 1111, 5, 14, 23, 32, 41, 113, 122, 131, 212, 221, 311, 1112, 1121, 1211, 2111, 11111, 6, 15, 24, 33, 42, 51, 114, 123, 132, 141, 213, 222, 231, 312, 321, 411, 1113, 1122, 1131, 1212, 1221, 1311, 2112, 2121
Offset: 1
Examples
Triangle begins: 1; 2,11; 3,12,21,111; 4,13,22,31,112,121,211,1111; ...
Links
- T. D. Noe, Rows n=1..11 of triangle, flattened
Programs
-
Mathematica
Flatten[Table[p=Partitions[n,9]; Sort[Flatten[Table[FromDigits/@Permutations[p[[i]]], {i,Length[p]}]]], {n,6}]] (* T. D. Noe, Oct 27 2008 *)
Extensions
More terms from T. D. Noe, Oct 27 2008
Comments