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
Keywords
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 *)
Comments