%I #26 Oct 21 2023 21:39:27
%S 2,5,8,11,13,16,19,22,24,27,30,33,35,38,41,44,46,49,52,55,57,60,63,66,
%T 68,71,74,77,79,82,85,88,90,93,96,99,101,104,107,110,112,115,118,121,
%U 123,126,129,132,134,137,140,143,145,148,151,154,156,159,162,165,167
%N a(n) = floor(n*Pi/(Pi-2)).
%C Beatty sequence for Pi/(Pi-2); complement of A140758.
%H Vincenzo Librandi, <a href="/A108589/b108589.txt">Table of n, a(n) for n = 1..7000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BeattySequence.html">Beatty Sequence</a>
%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%p A108589:=n->floor(n*Pi/(Pi-2)); seq(A108589(n), n=1..50); # _Wesley Ivan Hurt_, Apr 19 2014
%t With[{c=Pi/(Pi-2)},Floor[c*Range[70]]] (* _Harvey P. Dale_, Apr 19 2014 *)
%o (Magma) R:= RealField(40); [Floor(n*Pi(R)/(Pi(R)-2)): n in [1..60]]; // _G. C. Greubel_, Oct 21 2023
%o (SageMath) [floor(n*pi/(pi-2)) for n in range(1,61)] # _G. C. Greubel_, Oct 21 2023
%Y Cf. A054386, A108586, A108590, A140758.
%K nonn,easy
%O 1,1
%A _Reinhard Zumkeller_, Jun 11 2005