A184736 floor(nr+h), where r=-1+2^(3/2), h=-1/2; complement of A184735.

1, 3, 4, 6, 8, 10, 12, 14, 15, 17, 19, 21, 23, 25, 26, 28, 30, 32, 34, 36, 37, 39, 41, 43, 45, 47, 48, 50, 52, 54, 56, 58, 59, 61, 63, 65, 67, 68, 70, 72, 74, 76, 78, 79, 81, 83, 85, 87, 89, 90, 92, 94, 96, 98, 100, 101, 103, 105, 107, 109, 111, 112, 114, 116, 118, 120, 122, 123, 125, 127, 129, 131, 132, 134, 136, 138, 140, 142, 143, 145, 147, 149, 151, 153, 154, 156, 158, 160, 162, 164, 165, 167, 169, 171, 173, 175, 176, 178, 180, 182, 184, 185, 187, 189, 191, 193, 195, 196, 198, 200, 202, 204, 206, 207, 209, 211, 213, 215, 217, 218

Offset

1,2

Links

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

Formula

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

Sequence in context: A024511 A206818 A191262 * A173472 A334905 A058992

Adjacent sequences: A184733 A184734 A184735 * A184737 A184738 A184739

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved