A082694 Partial sums of A082693.

1, 3, 4, 6, 10, 12, 13, 15, 19, 27, 31, 33, 34, 36, 40, 48, 64, 72, 76, 78, 79, 81, 85, 93, 109, 141, 157, 165, 169, 171, 172, 174, 178, 186, 202, 234, 298, 330, 346, 354, 358, 360, 361, 363, 367, 375, 391, 423, 487, 615, 679, 711, 727, 735, 739, 741, 742, 744

Offset: 1

Author

Benoit Cloitre, Apr 12 2003

Keywords

• nonn

Programs

Mathematica

f[n_]:=Module[{st=2^Range[0,n]},Join[st,Reverse[Most[Rest[st]]]]]; Accumulate[ Flatten[Array[f,10]]] (* Harvey P. Dale, May 09 2012 *)