%I #8 Nov 21 2013 12:48:00
%S 1,3,4,6,10,12,13,15,19,27,31,33,34,36,40,48,64,72,76,78,79,81,85,93,
%T 109,141,157,165,169,171,172,174,178,186,202,234,298,330,346,354,358,
%U 360,361,363,367,375,391,423,487,615,679,711,727,735,739,741,742,744
%N Partial sums of A082693.
%t 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 *)
%K nonn
%O 1,2
%A _Benoit Cloitre_, Apr 12 2003
|