A184738 floor(nr+h), where r=-1+sqrt(5), h=1/2; complement of A184735.

1, 2, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 28, 30, 31, 32, 33, 35, 36, 37, 38, 40, 41, 42, 43, 44, 46, 47, 48, 49, 51, 52, 53, 54, 56, 57, 58, 59, 61, 62, 63, 64, 66, 67, 68, 69, 70, 72, 73, 74, 75, 77, 78, 79, 80, 82, 83, 84, 85, 87, 88, 89, 90, 91, 93, 94, 95, 96, 98, 99, 100, 101, 103, 104, 105, 106, 108, 109, 110, 111, 112, 114, 115, 116, 117, 119, 120, 121, 122, 124, 125, 126, 127, 129, 130, 131, 132, 133, 135, 136, 137, 138, 140, 141, 142, 143, 145, 146, 147, 148

Offset: 1

Author

Clark Kimberling, Jan 20 2011

Keywords

• nonn

Crossrefs

Cf. A184739.

Programs

Mathematica

r=-1+sqrt(5); h=1/2; s=r/(r-1);
Table[Floor[n*r+h],{n,1,120}]  (* A184738*)
Table[Floor[n*s+h-h*s],{n,1,120}]  (*A184739 *)

Formula

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