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

3, 8, 13, 18, 24, 29, 34, 39, 45, 50, 55, 60, 65, 71, 76, 81, 86, 92, 97, 102, 107, 113, 118, 123, 128, 134, 139, 144, 149, 154, 160, 165, 170, 175, 181, 186, 191, 196, 202, 207, 212, 217, 223, 228, 233, 238, 243, 249, 254, 259, 264, 270, 275, 280, 285, 291, 296, 301, 306, 312, 317, 322, 327, 332, 338, 343, 348, 353, 359, 364, 369, 374, 380, 385, 390, 395, 401, 406, 411, 416, 422, 427, 432, 437, 442, 448, 453, 458, 463, 469, 474, 479, 484, 490, 495, 500, 505, 511, 516, 521, 526, 531, 537, 542, 547, 552, 558, 563, 568, 573, 579, 584, 589, 594, 600, 605, 610, 615, 620, 626

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), 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. A184738.

Sequence in context: A190517 A105502 A105702 * A081989 A264780 A208276

Adjacent sequences: A184736 A184737 A184738 * A184740 A184741 A184742

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved