|
%I #9 Sep 07 2015 08:16:37
%S 1,3,1,4,8,11,15,26,52,55,59,70,96,151,221,372,744,747,751,762,788,
%T 843,913,1064,1436,2183,2945,3788,4852,7035,10823,17858,35716,35719,
%U 35723,35734,35760,35815,35885,36036,36408,37155,37917
%N a(n)=a(n-1)+a(m), where m=2n-2-2^(p+1) and 2^p<n-1<=2^(p+1), for n >= 4.
%H Ivan Neretin, <a href="/A050059/b050059.txt">Table of n, a(n) for n = 1..8193</a>
%t Fold[Append[#1, #1[[-1]] + #1[[#2]]] &, {1, 3, 1}, Flatten@Table[2 k, {n, 5}, {k, 2^n}]] (* _Ivan Neretin_, Sep 07 2015 *)
%Y Cf. A050027, A050031, A050035, A050039, A050043, A050047, A050051, A050055, A050063, A050067, A050071 (similar, but with different initial conditions).
%K nonn
%O 1,2
%A _Clark Kimberling_
|
