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

Author

L. Edson Jeffery, Jun 27 2011

Keywords

• nonn
• easy

Comments

The sequence of all n for which a(n)=1 is A191748 = {1,2,5,6,10,14,...}.

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