A253082 Partial sums of A246595.

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, 92, 96, 112, 121, 130, 146, 171, 172, 173, 174, 178, 179, 180, 184, 193, 194, 195, 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

Offset: 0

Author

N. J. A. Sloane, Feb 05 2015

Keywords

• nonn

Links

• N. J. A. Sloane, Table of n, a(n) for n = 0..8192
• N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168 [math.CO], 2015.

Crossrefs

Cf. A246595.

Programs

Mathematica

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