|
%I #10 Aug 22 2021 18:58:38
%S 1,7,49,346,2443,17253,121849,860560,6077716,42923950,303150968,
%T 2141007745,15120895687,106791526987,754216580306,5326664633964,
%U 37619639853603,265689207030405
%N a(n) = floor( a(n-1)/(Pi - 3) ) with n>0, a(0)=1.
%H Clark Kimberling, <a href="/A024582/b024582.txt">Table of n, a(n) for n = 0..250</a>
%t a[0] = 1; a[n_] := Floor[a[n - 1]/FractionalPart[Pi]];
%t Table[a[n], {n, 0, 30}]
%t (* _Clark Kimberling_, Aug 18 2012 *)
%t NestList[Floor[#/(Pi-3)]&,1,20] (* _Harvey P. Dale_, Aug 22 2021 *)
%K nonn
%O 0,2
%A _Clark Kimberling_
|
