A184737 floor(n*s+h-h*s), where s=-1+2^(3/2), h=-1/2; complement of A184736.

2, 5, 7, 9, 11, 13, 16, 18, 20, 22, 24, 27, 29, 31, 33, 35, 38, 40, 42, 44, 46, 49, 51, 53, 55, 57, 60, 62, 64, 66, 69, 71, 73, 75, 77, 80, 82, 84, 86, 88, 91, 93, 95, 97, 99, 102, 104, 106, 108, 110, 113, 115, 117, 119, 121, 124, 126, 128, 130, 133, 135, 137, 139, 141, 144, 146, 148, 150, 152, 155, 157, 159, 161, 163, 166, 168, 170, 172, 174, 177, 179, 181, 183, 186, 188, 190, 192, 194, 197, 199, 201, 203, 205, 208, 210, 212, 214, 216, 219, 221, 223, 225, 227, 230, 232, 234, 236, 238, 241, 243, 245, 247, 250, 252, 254, 256, 258, 261, 263, 265

Offset

1,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A184736.

Sequence in context: A163985 A130773 A140139 * A206815 A024510 A169865

Adjacent sequences: A184734 A184735 A184736 * A184738 A184739 A184740

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved