A246334 First bisection of A246333.

1, 5, 17, 29, 61, 73, 109, 157, 229, 241, 277, 329, 429, 477, 573, 633, 861, 873, 909, 961, 1061, 1113, 1237, 1353, 1645, 1661, 1893, 1969, 2325, 2321, 2669, 2693, 3245, 3305, 3341, 3393, 3493, 3545, 3669, 3785, 4077, 4097, 4357, 4489, 4909, 4929, 5437, 5553, 6373

Offset: 0

Author

N. J. A. Sloane, Aug 30 2014

Keywords

• nonn

Links

• N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168, 2015
• Index entries for sequences related to cellular automata

Crossrefs

Cf. A246333, A246335.

Programs

Mathematica

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 *)

Extensions

Minor typo in name corrected by Vincenzo Librandi, Aug 30 2014