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,2

Links

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

Formula

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

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

Crossrefs

Cf. A184739.

Sequence in context: A265187 A039186 A184516 * A032769 A039139 A349829

Adjacent sequences: A184735 A184736 A184737 * A184739 A184740 A184741

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved