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,1

Comments

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

Links

Table of n, a(n) for n=1..91.

Mathematica

Flatten[Table[Array[KroneckerDelta, {n, n}], {n, 1, 6}]] (* Geoffrey Critzer, Dec 11 2011 *)

Prog

(PARI) for(n=1, 9, for(a=1, n, for(b=1, n, print1(a==b", ")))) \\ Charles R Greathouse IV, Jun 29 2011

Crossrefs

Sequence in context: A355681 A214284 A361466 * A330323 A280933 A133081

Adjacent sequences: A191744 A191745 A191746 * A191748 A191749 A191750

Keyword

nonn,easy

Author

L. Edson Jeffery, Jun 27 2011

Status

approved