A358133 Triangle read by rows whose n-th row lists the first differences of the n-th composition in standard order (row n of A066099).
0, -1, 1, 0, 0, -2, 0, -1, 0, 2, 1, -1, 0, 1, 0, 0, 0, -3, -1, -2, 0, 1, 0, -1, -1, 1, -1, 0, 0, 3, 2, -2, 1, 0, 1, -1, 0, 0, 2, 0, 1, -1, 0, 0, 1, 0, 0, 0, 0, -4, -2, -3, 0, 0, -1, -1, -2, 1, -2, 0, 0, 2, 1, -2, 0, 0, 0, -1, 0, -1, 2, -1, 1, -1, -1, 0, 1, -1
Offset: 3
Examples
Triangle begins (dots indicate empty rows): 1: . 2: . 3: 0 4: . 5: -1 6: 1 7: 0 0 8: . 9: -2 10: 0 11: -1 0 12: 2 13: 1 -1 14: 0 1 15: 0 0 0
Links
Crossrefs
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Table[Differences[stc[n]],{n,100}]
Comments