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