|
%I #17 Aug 03 2014 14:29:48
%S 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,
%T 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,
%U 0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1
%N Concatenation of row entries of the n X n identity matrices.
%C The sequence of all n for which a(n)=1 is A191748 = {1,2,5,6,10,14,...}.
%t Flatten[Table[Array[KroneckerDelta, {n, n}], {n, 1, 6}]] (* _Geoffrey Critzer_, Dec 11 2011 *)
%o (PARI) for(n=1,9,for(a=1,n,for(b=1,n,print1(a==b", ")))) \\ _Charles R Greathouse IV_, Jun 29 2011
%K nonn,easy
%O 1,1
%A _L. Edson Jeffery_, Jun 27 2011
|
