# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a267923 Showing 1-1 of 1 %I A267923 #16 Apr 20 2019 06:13:20 %S A267923 1,11,11011,1111011,111111011,11111111011,1111111111011, %T A267923 111111111111011,11111111111111011,1111111111111111011, %U A267923 111111111111111111011,11111111111111111111011,1111111111111111111111011,111111111111111111111111011,11111111111111111111111111011 %N A267923 Binary representation of the n-th iteration of the "Rule 245" elementary cellular automaton starting with a single ON (black) cell. %D A267923 S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55. %H A267923 Robert Price, Table of n, a(n) for n = 0..1000 %H A267923 Eric Weisstein's World of Mathematics, Elementary Cellular Automaton %H A267923 S. Wolfram, A New Kind of Science %H A267923 Index entries for sequences related to cellular automata %H A267923 Index to Elementary Cellular Automata %F A267923 Conjectures from _Colin Barker_, Jan 23 2016 and Apr 20 2019: (Start) %F A267923 a(n) = 101*a(n-1)-100*a(n-2) for n>2. %F A267923 G.f.: (1-90*x+10000*x^2) / ((1-x)*(1-100*x)). %F A267923 (End) %t A267923 rule=245; rows=20; ca=CellularAutomaton[rule,{{1},0},rows-1,{All,All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]],{rows-k+1,rows+k-1}],{k,1,rows}]; (* Truncated list of each row *) Table[FromDigits[catri[[k]]],{k,1,rows}] (* Binary Representation of Rows *) %Y A267923 Cf. A267922. %K A267923 nonn,easy %O A267923 0,2 %A A267923 _Robert Price_, Jan 22 2016 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE