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

Author

Clark Kimberling, Jan 20 2011

Keywords

• nonn

Crossrefs

Cf. A184737.

Programs

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 *)

Formula

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