A184654 floor(n*sqrt(3)-2/3); complement of A184655.

1, 2, 4, 6, 7, 9, 11, 13, 14, 16, 18, 20, 21, 23, 25, 27, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 46, 47, 49, 51, 53, 54, 56, 58, 59, 61, 63, 65, 66, 68, 70, 72, 73, 75, 77, 79, 80, 82, 84, 85, 87, 89, 91, 92, 94, 96, 98, 99, 101, 103, 104, 106, 108, 110, 111, 113, 115, 117, 118, 120, 122, 124, 125, 127, 129, 130, 132, 134, 136, 137, 139, 141, 143, 144, 146, 148, 150, 151, 153, 155, 156, 158, 160, 162, 163, 165, 167, 169, 170, 172, 174, 176, 177, 179, 181, 182, 184, 186, 188, 189, 191, 193, 195, 196, 198, 200, 201, 203, 205, 207

Offset

1,2

Links

Table of n, a(n) for n=1..120.

Mathematica

r=3^(1/2); h=-2/3; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184654 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184655 *)

Crossrefs

Cf. A184655, A184006.

Sequence in context: A285376 A198081 A081223 * A047293 A191176 A184585

Adjacent sequences: A184651 A184652 A184653 * A184655 A184656 A184657

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved