login
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