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

1, 2, 4, 6, 7, 9, 11, 12, 14, 15, 17, 19, 20, 22, 24, 25, 27, 28, 30, 32, 33, 35, 36, 38, 40, 41, 43, 45, 46, 48, 49, 51, 53, 54, 56, 57, 59, 61, 62, 64, 66, 67, 69, 70, 72, 74, 75, 77, 79, 80, 82, 83, 85, 87, 88, 90, 91, 93, 95, 96, 98, 100, 101, 103, 104, 106, 108, 109, 111, 113, 114, 116, 117, 119, 121, 122, 124, 125, 127, 129, 130, 132, 134, 135, 137, 138, 140, 142, 143, 145, 146, 148, 150, 151, 153, 155, 156, 158, 159, 161, 163, 164, 166, 168, 169, 171, 172, 174, 176, 177, 179, 180, 182, 184, 185, 187, 189, 190, 192, 193

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A184733, A184658.

Sequence in context: A320474 A051533 A186151 * A039009 A032793 A195127

Adjacent sequences: A184729 A184730 A184731 * A184733 A184734 A184735

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved