The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #14 Apr 20 2025 09:38:53
%S 1,7,49,346,2444,17261,121906,860963,6080563,42944057,303292974,
%T 2142010664,15127978816,106841551680,754569880366,5329159820340,
%U 37637262140584,265813664666689
%N Integer nearest a(n-1)/(Pi - 3), where a(0) = 1.
%H Clark Kimberling, <a href="/A024587/b024587.txt">Table of n, a(n) for n = 0..250</a>
%t a[0] = 1; a[n_] := Round[a[n - 1]/FractionalPart[Pi]]; Table[a[n], {n, 0, 30}] (* _Clark Kimberling_, Aug 18 2012 *)
%t NestList[Round[#/(Pi-3)]&,1,20] (* _Harvey P. Dale_, Apr 20 2025 *)
%Y Cf. A133928.
%K nonn
%O 0,2
%A _Clark Kimberling_