%I #18 Oct 03 2018 04:52:04

%S 1,5,17,29,61,73,109,157,229,241,277,329,429,477,573,633,861,873,909,

%T 961,1061,1113,1237,1353,1645,1661,1893,1969,2325,2321,2669,2693,3245,

%U 3305,3341,3393,3493,3545,3669,3785,4077,4097,4357,4489,4909,4929,5437,5553,6373

%N First bisection of A246333.

%H N. J. A. Sloane, <a href="http://arxiv.org/abs/1503.01168">On the Number of ON Cells in Cellular Automata</a>, arXiv:1503.01168, 2015

%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>

%t max = 100; (Partition[Total[Flatten[#]]& /@ CellularAutomaton[{493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, max], 2] /. {a_, b_} -> {a, (max + 1 - Mod[max, 2])^2 - b} )[[All, 1]] (* _Jean-François Alcover_, Oct 03 2018 *)

%Y Cf. A246333, A246335.

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Aug 30 2014

%E Minor typo in name corrected by _Vincenzo Librandi_, Aug 30 2014