A024582 - OEIS

%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_