%I #17 Sep 08 2022 08:45:55
%S 1,3,4,6,7,9,11,12,14,15,17,19,20,22,23,25,26,28,30,31,33,34,36,38,39,
%T 41,42,44,45,47,49,50,52,53,55,57,58,60,61,63,65,66,68,69,71,72,74,76,
%U 77,79,80,82,84,85,87,88,90,91,93,95,96,98,99,101,103,104,106,107,109
%N Beatty sequence for 3-sqrt(2).
%C Let u=1+sqrt(2) and v=sqrt(2). Jointly rank {ju} and {kv} as in the first comment at A182760; a(n) is the position of nv. A182770 is the complement of A182769.
%H Vincenzo Librandi, <a href="/A182770/b182770.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(n*(3-sqrt(2))).
%t Floor[Range[70](3-Sqrt[2])] (* _Harvey P. Dale_, Apr 21 2013 *)
%o (Magma) [Floor(n*(3-Sqrt(2))): n in [1..80]]; // _Vincenzo Librandi_, Oct 25 2011
%o (PARI) vector(100, n, floor(n*(3-sqrt(2)))) \\ _G. C. Greubel_, Aug 18 2018
%Y Cf. A182760, A182769.
%K nonn
%O 1,2
%A _Clark Kimberling_, Nov 30 2010