A245540 Partial sums of A245180.

1, 2, 5, 6, 14, 17, 31, 32, 40, 48, 72, 75, 99, 113, 165, 166, 174, 182, 206, 214, 278, 302, 414, 417, 441, 465, 537, 551, 663, 715, 931, 932, 940, 948, 972, 980, 1044, 1068, 1180, 1188, 1252, 1316, 1508, 1532, 1724, 1836, 2252, 2255, 2279, 2303, 2375, 2399, 2591, 2663, 2999, 3013, 3125, 3237

Offset: 1

Author

N. J. A. Sloane, Jul 26 2014

Keywords

• nonn
• look

Links

• Altug Alkan, Table of n, a(n) for n = 1..16383
• Index entries for sequences related to cellular automata

Crossrefs

Cf. A245180, A160239, A245542.

Programs

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]];
Accumulate[Array[b, 58]] (* Jean-François Alcover, Oct 01 2018 *)

Formula

a(n) = (A245542(n) - 1)/8. - Omar E. Pol, Mar 07 2015