

A191747


Concatenation of row entries of the n X n identity matrices.


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A181115 A151666 A214284 * A133081 A125999 A073784
Adjacent sequences: A191744 A191745 A191746 * A191748 A191749 A191750


KEYWORD

nonn,easy


AUTHOR

L. Edson Jeffery, Jun 27 2011


STATUS

approved



