cp's OEIS Frontend

A245542 Partial sums of A160239.

%I A245542 #46 Dec 31 2020 11:11:15
%S A245542 1,9,17,41,49,113,137,249,257,321,385,577,601,793,905,1321,1329,1393,
%T A245542 1457,1649,1713,2225,2417,3313,3337,3529,3721,4297,4409,5305,5721,
%U A245542 7449,7457,7521,7585,7777,7841,8353,8545,9441,9505,10017,10529,12065
%N A245542 Partial sums of A160239.
%C A245542 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
%H A245542 N. J. A. Sloane, <a href="/A245542/b245542.txt">Table of n, a(n) for n = 0..16383</a>
%H A245542 N. J. A. Sloane, <a href="/wiki/Catalog_of_Toothpick_and_CA_Sequences_in_OEIS">Catalog of Toothpick and Cellular Automata Sequences in the OEIS</a>
%H A245542 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 A245542 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%F A245542 a(n) = 1 + 8*A245540(n), n >= 1. - _Omar E. Pol_, Mar 07 2015
%t A245542 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]];
%t A245542 Join[{1}, 1 + 8 Accumulate[Array[b, 43]]] (* _Jean-François Alcover_, Oct 01 2018, after _Omar E. Pol_ *)
%o A245542 (Haskell)
%o A245542 a245542 n = a245542_list !! n
%o A245542 a245542_list = scanl1 (+) a160239_list
%o A245542 -- _Reinhard Zumkeller_, Feb 13 2015
%Y A245542 Cf. A116520, A160239, A245540, A253908, A253767.
%K A245542 nonn,look
%O A245542 0,2
%A A245542 _N. J. A. Sloane_, Jul 26 2014
%E A245542 Offset changed to 0 by _N. J. A. Sloane_, Feb 06 2015