[go: up one dir, main page]

login
A184739
floor(n*s+h-h*s), where s=3+sqrt(5), h=1/2; complement of A184738.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 20 2011
STATUS
approved