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

3, 6, 9, 12, 16, 19, 22, 25, 29, 32, 35, 38, 41, 45, 48, 51, 54, 58, 61, 64, 67, 70, 74, 77, 80, 83, 87, 90, 93, 96, 99, 103, 106, 109, 112, 116, 119, 122, 125, 128, 132, 135, 138, 141, 145, 148, 151, 154, 158, 161, 164, 167, 170, 174, 177, 180, 183, 187

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..10000

Formula

a(n) = floor(n*(4+sqrt(6))/2). - Vincenzo Librandi, Oct 25 2011

Mathematica

r=-1+Sqrt[6];
c[k_]:=Floor[k*r];
Table[c[k], {k, 1, 90}] (* A194145 *)
s=r/(r-1);
d[k_]:=Floor[k*s];
Table[d[k], {k, 1, 90}] (* A194146 *)

Prog

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

Crossrefs

Cf. A194145.

Sequence in context: A189783 A330115 A189513 * A276854 A184906 A186156

Adjacent sequences: A194143 A194144 A194145 * A194147 A194148 A194149

Keyword

nonn

Author

Clark Kimberling, Aug 17 2011

Status

approved