%I #20 Sep 08 2022 08:45:55
%S 2,4,6,8,10,13,15,17,19,21,23,26,28,30,32,34,36,39,41,43,45,47,49,52,
%T 54,56,58,60,62,65,67,69,71,73,76,78,80,82,84,86,89,91,93,95,97,99,
%U 102,104,106,108,110,112,115,117,119,121,123,125,128,130,132,134,136,138,141,143,145,147,149,152,154,156,158,160,162,165,167
%N Beatty sequence for 5 - 2*sqrt(2).
%C Let u=(1+sqrt(2))/2 and v=sqrt(2). Jointly rank {ju} and {kv} as in the first comment at A182760; a(n) is the position of nv. A182766 is the complement of A182765.
%H Vincenzo Librandi, <a href="/A182766/b182766.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F a(n) = floor(s*n), where s = 5 - 2*sqrt(2).
%t Table[Floor[n*(5 - 2*Sqrt[2])], {n, 1, 100}] (* _G. C. Greubel_, Aug 18 2018 *)
%o (Magma) [Floor(n*(5-2*Sqrt(2))): n in [1..80]]; // _Vincenzo Librandi_, Oct 25 2011
%o (PARI) vector(100,n, floor(n*(5-2*sqrt(2)))) \\ _G. C. Greubel_, Aug 18 2018
%Y Cf. A182760, A182765.
%K nonn
%O 1,1
%A _Clark Kimberling_, Nov 29 2010