%I #13 Sep 08 2022 08:45:58

%S 3,6,9,12,16,19,22,25,29,32,35,38,41,45,48,51,54,58,61,64,67,70,74,77,

%T 80,83,87,90,93,96,99,103,106,109,112,116,119,122,125,128,132,135,138,

%U 141,145,148,151,154,158,161,164,167,170,174,177,180,183,187

%N Beatty sequence for (4+sqrt(6))/2; complement of A194145.

%H Vincenzo Librandi, <a href="/A194146/b194146.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = floor(n*(4+sqrt(6))/2). - _Vincenzo Librandi_, Oct 25 2011

%t r=-1+Sqrt[6];

%t c[k_]:=Floor[k*r];

%t Table[c[k],{k,1,90}] (* A194145 *)

%t s=r/(r-1);

%t d[k_]:=Floor[k*s];

%t Table[d[k],{k,1,90}] (* A194146 *)

%o (Magma) [Floor(n*(4+Sqrt(6))/2): n in [1..80]]; // _Vincenzo Librandi_, Oct 25 2011

%Y Cf. A194145.

%K nonn

%O 1,1

%A _Clark Kimberling_, Aug 17 2011