login
A184655
floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-2/3; complement of A184654.
2
3, 5, 8, 10, 12, 15, 17, 19, 22, 24, 26, 29, 31, 34, 36, 38, 41, 43, 45, 48, 50, 52, 55, 57, 60, 62, 64, 67, 69, 71, 74, 76, 78, 81, 83, 86, 88, 90, 93, 95, 97, 100, 102, 105, 107, 109, 112, 114, 116, 119, 121, 123, 126, 128, 131, 133, 135, 138, 140, 142, 145, 147, 149, 152, 154, 157, 159, 161, 164, 166, 168, 171, 173, 175, 178, 180, 183, 185, 187, 190, 192, 194, 197, 199, 202, 204, 206, 209, 211, 213, 216, 218, 220, 223, 225, 228, 230
OFFSET
1,1
FORMULA
a(n)=floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-2/3.
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: A191160 A189929 A047391 * A090846 A195170 A079527
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 19 2011
STATUS
approved