A184638 floor(nr+h), where r=sqrt(3), h=-1/2; complement of A184653.

1, 2, 4, 6, 8, 9, 11, 13, 15, 16, 18, 20, 22, 23, 25, 27, 28, 30, 32, 34, 35, 37, 39, 41, 42, 44, 46, 47, 49, 51, 53, 54, 56, 58, 60, 61, 63, 65, 67, 68, 70, 72, 73, 75, 77, 79, 80, 82, 84, 86, 87, 89, 91, 93, 94, 96, 98, 99, 101, 103, 105, 106, 108, 110, 112, 113, 115, 117, 119, 120, 122, 124, 125, 127, 129, 131, 132, 134, 136, 138, 139, 141, 143, 144, 146, 148, 150, 151, 153, 155, 157, 158, 160, 162, 164, 165, 167, 169, 170, 172, 174, 176, 177, 179, 181, 183, 184, 186, 188, 190, 191, 193, 195, 196, 198, 200

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A184653.

Sequence in context: A114571 A050091 A184740 * A047294 A195173 A215000

Adjacent sequences: A184635 A184636 A184637 * A184639 A184640 A184641

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved