%I #9 Apr 21 2013 16:42:12
%S 0,1,3,7,15,29,52,91,155,259,429,705,1152,1876,3049,4948,8022,12996,
%T 21045,34070,55146,89249,144429,233714,378181,611934,990156,1602133,
%U 2592333,4194511,6786891,10981451,17768392,28749895,46518341,75268291,121786689,197055039
%N a(n)=n+floor(r*a(n-1)), where r = golden ratio = (1+sqrt(5))/2, a(0)=0, a(1)=1.
%F a(n)=n+floor(r*a(n-1)), r=(1+sqrt(5))/2, a(0)=0, a(1)=1.
%t nxt[{n_,a_}]:={n+1,n+1+Floor[GoldenRatio*a]}; Join[{0},Transpose[ NestList[ nxt,{1,1},40]][[2]]] (* _Harvey P. Dale_, Apr 21 2013 *)
%K nonn
%O 0,3
%A _Clark Kimberling_, Nov 24 2010
|