A191747 Concatenation of row entries of the n X n identity matrices.
1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1
Offset: 1
Programs
-
Mathematica
Flatten[Table[Array[KroneckerDelta, {n, n}], {n, 1, 6}]] (* Geoffrey Critzer, Dec 11 2011 *)
-
PARI
for(n=1,9,for(a=1,n,for(b=1,n,print1(a==b", ")))) \\ Charles R Greathouse IV, Jun 29 2011
Comments