A128138 A000012 * A128132.
1, 0, 2, 0, 1, 3, 0, 1, 2, 4, 0, 1, 2, 3, 5, 0, 1, 2, 3, 4, 6, 0, 1, 2, 3, 4, 5, 7, 0, 1, 2, 3, 4, 5, 6, 8, 0, 1, 2, 3, 4, 5, 6, 7, 9, 0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 0, 1, 2, 3
Offset: 1
Examples
First few rows of the triangle are: 1; 0, 2; 0, 1, 3; 0, 1, 2, 4; 0, 1, 2, 3, 5; 0, 1, 2, 3, 4, 6; 0, 1, 2, 3, 4, 5, 7; ...
Programs
-
Mathematica
Table[Delete[Range[0, n], -2], {n, 14}] // Flatten (* or *) Table[If[k == n - 1, k + 1, k], {n, 14}, {k, 0, n - 1}] (* Michael De Vlieger, Apr 26 2016 *)