login
A184654
floor(n*sqrt(3)-2/3); complement of A184655.
2
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
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
Sequence in context: A285376 A198081 A081223 * A047293 A191176 A184585
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 19 2011
STATUS
approved