A182766 - OEIS

%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