A131406 3*A128174 - 2*A000012(signed).
1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1
Offset: 1
Examples
First few rows of the triangle are: 1; 2, 1; 1, 2, 1; 2, 1, 2, 1; 1, 2, 1, 2, 1; 2, 1, 2, 1, 2, 1; ...
Programs
-
Mathematica
T[n_, k_] := Mod[n-k, 2]+1; Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* Jean-François Alcover, Nov 17 2016 *)
Formula
Triangle T(n,k)=if(k<=n,(3-(-1)^(n-k))/2). [From Paul Barry, Nov 03 2010]
Comments