login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A246334
First bisection of A246333.
4
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,2
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 *)
CROSSREFS
Sequence in context: A143103 A091851 A079292 * A272838 A272939 A272920
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 30 2014
EXTENSIONS
Minor typo in name corrected by Vincenzo Librandi, Aug 30 2014
STATUS
approved