A184006 floor(nr+h), where r=sqrt(3), h=-1/3; complement of A184007.

1, 3, 4, 6, 8, 10, 11, 13, 15, 16, 18, 20, 22, 23, 25, 27, 29, 30, 32, 34, 36, 37, 39, 41, 42, 44, 46, 48, 49, 51, 53, 55, 56, 58, 60, 62, 63, 65, 67, 68, 70, 72, 74, 75, 77, 79, 81, 82, 84, 86, 88, 89, 91, 93, 94, 96, 98, 100, 101, 103, 105, 107, 108, 110

Offset

1,2

Links

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

Formula

a(n)=floor(nr+h), where r=sqrt(3), 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. A184007.

Sequence in context: A189573 A029900 A003257 * A187415 A047298 A184748

Adjacent sequences: A184003 A184004 A184005 * A184007 A184008 A184009

Keyword

nonn,easy

Author

Clark Kimberling, Jan 08 2011

Status

approved