A184007 floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-1/3. Complement of A184006.

2, 5, 7, 9, 12, 14, 17, 19, 21, 24, 26, 28, 31, 33, 35, 38, 40, 43, 45, 47, 50, 52, 54, 57, 59, 61, 64, 66, 69, 71, 73, 76, 78, 80, 83, 85, 87, 90, 92, 95, 97, 99, 102, 104, 106, 109, 111, 114, 116, 118, 121, 123, 125, 128, 130, 132, 135, 137, 140, 142, 144, 147, 149, 151, 154, 156, 158, 161, 163, 166, 168, 170, 173, 175, 177, 180, 182, 185, 187, 189, 192, 194, 196, 199, 201, 203, 206, 208, 211, 213, 215, 218, 220, 222, 225, 227, 229, 232, 234, 237, 239, 241, 244, 246, 248, 251, 253, 255

Offset

1,1

Links

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

Formula

a(n)=floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-1/3.

Mathematica

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

Crossrefs

Cf. A184006.

Sequence in context: A187416 A243808 A275278 * A003256 A029901 A080652

Adjacent sequences: A184004 A184005 A184006 * A184008 A184009 A184010

Keyword

nonn

Author

Clark Kimberling, Jan 08 2011

Status

approved