A024587 Integer nearest a(n-1)/(Pi - 3), where a(0) = 1.
1, 7, 49, 346, 2444, 17261, 121906, 860963, 6080563, 42944057, 303292974, 2142010664, 15127978816, 106841551680, 754569880366, 5329159820340, 37637262140584, 265813664666689
Offset: 0
Keywords
Links
- Clark Kimberling, Table of n, a(n) for n = 0..250
Crossrefs
Cf. A133928.
Programs
-
Mathematica
a[0] = 1; a[n_] := Round[a[n - 1]/FractionalPart[Pi]]; Table[a[n], {n, 0, 30}] (* Clark Kimberling, Aug 18 2012 *) NestList[Round[#/(Pi-3)]&,1,20] (* Harvey P. Dale, Apr 20 2025 *)