A245542 Partial sums of A160239.

1, 9, 17, 41, 49, 113, 137, 249, 257, 321, 385, 577, 601, 793, 905, 1321, 1329, 1393, 1457, 1649, 1713, 2225, 2417, 3313, 3337, 3529, 3721, 4297, 4409, 5305, 5721, 7449, 7457, 7521, 7585, 7777, 7841, 8353, 8545, 9441, 9505, 10017, 10529, 12065

Offset: 0

Author

N. J. A. Sloane, Jul 26 2014

Keywords

• nonn
• look

Comments

Also, total number of cubic ON cells after n generations in a three-dimensional cellular automaton where A160239(n) gives the number of cubic ON cells in the n-th level of the structure starting from the top. An ON cell remains ON forever. The structure looks like an irregular stepped pyramid. - Omar E. Pol, Jan 27 2015

Links

• N. J. A. Sloane, Table of n, a(n) for n = 0..16383
• N. J. A. Sloane, Catalog of Toothpick and Cellular Automata Sequences in the OEIS
• 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. A116520, A160239, A245540, A253908, A253767.

Programs

Haskell

a245542 n = a245542_list !! n
a245542_list = scanl1 (+) a160239_list
-- Reinhard Zumkeller, Feb 13 2015

Mathematica

b[n_] := b[n] = Which[n == 1, 1, Mod[n, 2] == 0, b[n/2], Mod[n, 4] == 3, 2b[(n - 1)/2] + b[n - 2], True, 8b[(n - 1)/4]];
Join[{1}, 1 + 8 Accumulate[Array[b, 43]]] (* Jean-François Alcover, Oct 01 2018, after Omar E. Pol *)

Formula

a(n) = 1 + 8*A245540(n), n >= 1. - Omar E. Pol, Mar 07 2015

Extensions

Offset changed to 0 by N. J. A. Sloane, Feb 06 2015