login
A184747
floor(n*s+h-h*s), where s=1+sqrt(5), h=1/2; complement of A184746.
2
2, 5, 8, 11, 15, 18, 21, 24, 28, 31, 34, 37, 40, 44, 47, 50, 53, 57, 60, 63, 66, 70, 73, 76, 79, 83, 86, 89, 92, 95, 99, 102, 105, 108, 112, 115, 118, 121, 125, 128, 131, 134, 138, 141, 144, 147, 150, 154, 157, 160, 163, 167, 170, 173, 176, 180, 183, 186, 189, 193, 196, 199, 202, 205, 209, 212, 215, 218, 222, 225, 228, 231, 235, 238, 241, 244, 248, 251, 254, 257, 261, 264, 267, 270, 273, 277, 280, 283, 286, 290, 293, 296, 299, 303, 306, 309, 312, 316, 319, 322, 325, 328, 332, 335, 338, 341, 345, 348, 351, 354, 358, 361, 364, 367, 371, 374, 377, 380, 383, 387
OFFSET
1,1
FORMULA
a(n)=floor(n*s+h-h*s), where s=1+sqrt(5), h=1/2.
MATHEMATICA
r=1+5^(-1/2); h=1/2; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}] ( *A184746 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}] (* A184747 *)
Table[With[{c=1+Sqrt[5 ]}, Floor[(2n*c+1-c)/2]], {n, 120}] (* Harvey P. Dale, Feb 27 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 20 2011
STATUS
approved