%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