login
Partial sums of A246595.
2

%I #14 Dec 15 2018 11:49:17

%S 1,2,3,7,8,9,13,22,23,24,25,29,33,37,46,62,63,64,65,69,70,71,75,84,88,

%T 92,96,112,121,130,146,171,172,173,174,178,179,180,184,193,194,195,

%U 196,200,204,208,217,233,237,241,245,261,265,269,285,321,330,339,348,384,400,416,441,477,478,479,480,484,485,486,490,499,500

%N Partial sums of A246595.

%H N. J. A. Sloane, <a href="/A253082/b253082.txt">Table of n, a(n) for n = 0..8192</a>

%H 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 [math.CO], 2015.

%t Table[Times @@ (Length[#]^2&) /@ Select[Split[IntegerDigits[n, 2]], #[[1]] == 1&], {n, 0, 72}] // Accumulate (* _Jean-François Alcover_, Dec 15 2018 *)

%Y Cf. A246595.

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Feb 05 2015