Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Sep 08 2015 08:52:55
%S 1,3,4,5,8,9,12,16,21,22,25,29,34,42,51,63,79,80,83,87,92,100,109,121,
%T 137,158,180,205,234,268,310,361,424,425,428,432,437,445,454,466,482,
%U 503,525,550,579,613,655
%N a(n) = a(n-1)+a(m), where m=n-1-2^p and 2^p<n-1<=2^(p+1), for m >= 4.
%H Ivan Neretin, <a href="/A050070/b050070.txt">Table of n, a(n) for n = 1..8193</a>
%t Fold[Append[#1, #1[[-1]] + #1[[#2]]] &, {1, 3, 4}, Flatten@Table[k, {n, 5}, {k, 2^n}]] (* _Ivan Neretin_, Sep 08 2015 *)
%Y Cf. similar sequences, with different initial conditions, listed in A050034.
%K nonn
%O 1,2
%A _Clark Kimberling_