OFFSET
1,1
COMMENTS
This is column 1 of A283739; |a(n+1)-a(n)| is a Fibonacci number for n>=1.
MATHEMATICA
g = GoldenRatio; z = 10000; t = Table[N[FractionalPart[n*g]], {n, 1, z}];
r[k_] := Select[Range[z], (k - 1)/k < t[[#]] < k/(k + 1) &, 1];
Flatten[Table[r[k], {k, 1, 200}]] (* A283746 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 17 2017
STATUS
approved