# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a161385 Showing 1-1 of 1 %I A161385 #7 Jul 26 2024 12:59:01 %S A161385 1,2,2,2,2,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1, %T A161385 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2, %U A161385 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1 %N A161385 (1,2)-sequence where n-th run has length n^2. %H A161385 Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 %F A161385 a(n) = A161382(n) + 1. - _Reinhard Zumkeller_, Aug 10 2014 %t A161385 With[{x=10},Riffle[Table[PadRight[{},n^2,1],{n,1,x,2}],Table[PadRight[{},m^2,2],{m,2,x+1,2}]]//Flatten] (* _Harvey P. Dale_, Jul 26 2024 *) %o A161385 (Haskell) %o A161385 a161385 = (+ 1) . a161382 -- _Reinhard Zumkeller_, Aug 10 2014 %Y A161385 Cf. A161382. %K A161385 nonn %O A161385 1,2 %A A161385 _N. J. A. Sloane_, Nov 29 2009 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE