|
%I #13 Aug 03 2014 14:31:47
%S 1,2,3,5,8,12,19,29,45,70,108,167,259,401,621,962,1490,2307,3573,5533,
%T 8568,13268,20547,31819,49274,76305,118165,182988,283372,438825,
%U 679557,1052351,1629654,2523656,3908093,6052009,9372043,14513394,22475206,34804739
%N a(n) = integer nearest a(n-1)/(sqrt(7) - 2), where a(1) = 1.
%H Clark Kimberling, <a href="/A024567/b024567.txt">Table of n, a(n) for n = 1..1001</a>
%t With[{c=Sqrt[7]-2},NestList[Round[#/c]&,1,40]] (* _Harvey P. Dale_, Apr 01 2011 *)
%K nonn
%O 1,2
%A _Clark Kimberling_
|
