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

3, 5, 7, 10, 12, 14, 17, 19, 21, 24, 26, 29, 31, 33, 36, 38, 40, 43, 45, 48, 50, 52, 55, 57, 59, 62, 64, 66, 69, 71, 74, 76, 78, 81, 83, 85, 88, 90, 92, 95, 97, 100, 102, 104, 107, 109, 111, 114, 116, 118, 121, 123, 126, 128, 130, 133, 135, 137, 140, 142, 145, 147, 149, 152, 154, 156, 159, 161, 163, 166, 168, 171, 173, 175, 178, 180, 182, 185, 187, 189, 192, 194, 197, 199, 201, 204, 206, 208, 211, 213, 215, 218, 220, 223, 225, 227, 230

Offset

1,1

Links

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

Formula

floor(n*s+h-h*s), where s=(3+sqrt(3))/2, 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. A184638.

Sequence in context: A260466 A033035 A047390 * A263085 A206334 A184741

Adjacent sequences: A184650 A184651 A184652 * A184654 A184655 A184656

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved