Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Feb 15 2016 04:57:07
%S 5,6,7,9,8,9,12,11,18,11,11,10,13,16,19,19,23,25,35,25,32,27,37,30,46,
%T 39,45,30,31,29,27,32,32,39,34,29,34,31,34,36,33,31,29,34,31,42,37,36,
%U 45,48,64,45,60,50,67,58,66,68,72,72,79,75,80,67,69,73,65,56,61,52,53,60
%N The number of alive cells in Conway's Game of Life starting with the "R-pentomino" initial pattern.
%C Population stabilizes at 116 alive cells after generation 1102.
%H Jean-François Alcover, <a href="/A268857/b268857.txt">Table of n, a(n) for n = 0..1103</a>
%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/GameofLife.html">Game of Life</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Conway%27s_Game_of_Life">Conway's Game of Life</a>
%t (* example with a 100x100 grid *) m = 50; GameOfLife = {224, {2, {{2, 2, 2}, {2, 1, 2}, {2, 2, 2}}}, {1, 1}}; grids = CellularAutomaton[ GameOfLife, SparseArray[{{m-1, m} -> 1, {m-1, m+1} -> 1, {m, m-1} -> 1, {m, m} -> 1, {m+1, m} -> 1}, {2m, 2m}], 2m]; a[n_] := grids[[n+1]] // Flatten // Total; Table[a[n], {n, 0, 2 m}]
%Y Cf. A179409.
%K nonn
%O 0,1
%A _Jean-François Alcover_, Feb 14 2016