|
%I #13 Sep 08 2022 08:45:33
%S 2,4,6,8,10,12,14,16,18,20,23,25,27,29,31,33,35,37,39,41,43,46,48,50,
%T 52,54,56,58,60,62,64,67,69,71,73,75,77,79,81,83,85,87,90,92,94,96,98,
%U 100,102,104,106,108,110,113,115,117,119,121,123,125,127,129,131,134,136
%N a(n) = floor(n*(4*sqrt(2)+9)/7).
%C a(n) = A059534(n) for n <= 31;
%C Beatty sequence for (4*Sqrt(2)+9)/7; complement of A137803;
%C a(n) = A137805(A137803(n)) and A137805(a(n)) = A137803(n).
%H R. Zumkeller, <a href="/A137804/b137804.txt">Table of n, a(n) for n = 1..1000</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 [seq(floor(n*(4*(sqrt(2))+9)/7),n=1..70)]; # _Muniru A Asiru_, Mar 29 2018
%t Table[Floor[n*(4*Sqrt[2]+9)/7], {n,1,100}] (* _G. C. Greubel_, Mar 28 2018 *)
%o (PARI) for(n=1,100, print1(floor(n*(4*sqrt(2)+9)/7), ", ")) \\ _G. C. Greubel_, Mar 28 2018
%o (Magma) [Floor(n*(4*Sqrt(2)+9)/7): n in [1..100]]; // _G. C. Greubel_, Mar 28 2018
%Y Cf. A059534, A137803, A137805
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Feb 11 2008
|
