A024582 a(n) = floor( a(n-1)/(Pi - 3) ) with n>0, a(0)=1.

1, 7, 49, 346, 2443, 17253, 121849, 860560, 6077716, 42923950, 303150968, 2141007745, 15120895687, 106791526987, 754216580306, 5326664633964, 37619639853603, 265689207030405

Offset

0,2

Links

Clark Kimberling, Table of n, a(n) for n = 0..250

Mathematica

a[0] = 1; a[n_] := Floor[a[n - 1]/FractionalPart[Pi]];
Table[a[n], {n, 0, 30}]
(* Clark Kimberling, Aug 18 2012 *)
NestList[Floor[#/(Pi-3)]&, 1, 20] (* Harvey P. Dale, Aug 22 2021 *)

Crossrefs

Sequence in context: A050737 A195908 A033143 * A024587 A351057 A240721

Adjacent sequences: A024579 A024580 A024581 * A024583 A024584 A024585

Keyword

nonn

Author

Clark Kimberling

Status

approved