A184657 floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=-1/2; complement of A184656.

3, 6, 8, 11, 13, 16, 19, 21, 24, 26, 29, 32, 34, 37, 40, 42, 45, 47, 50, 53, 55, 58, 61, 63, 66, 68, 71, 74, 76, 79, 81, 84, 87, 89, 92, 95, 97, 100, 102, 105, 108, 110, 113, 116, 118, 121, 123, 126, 129, 131, 134, 136, 139, 142, 144, 147, 150, 152, 155, 157, 160, 163, 165, 168, 170, 173, 176, 178, 181, 184, 186, 189, 191, 194, 197, 199, 202, 205, 207, 210, 212, 215, 218, 220, 223, 225, 228, 231, 233, 236, 239, 241, 244, 246, 249, 252, 254, 257, 259, 262, 265, 267, 270, 273, 275, 278, 280, 283, 286, 288, 291, 294, 296, 299, 301, 304, 307, 309, 312, 314

Offset

1,1

Links

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

Formula

a(n)=floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=-1/2.

Mathematica

r=(1+5^(1/2))/2; h=-1/2; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184656 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184657 *)

Crossrefs

Cf. A184656, A001950 (upper Wythoff sequence).

Sequence in context: A122437 A286988 A090848 * A354935 A310136 A310137

Adjacent sequences: A184654 A184655 A184656 * A184658 A184659 A184660

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved