OFFSET
0,2
COMMENTS
This is column 1 of A283740; |a(n+1) - a(n)| is a Fibonacci number for n >= 1.
MATHEMATICA
g = GoldenRatio; z = 50000; t = Table[N[FractionalPart[n*g]], {n, 1, z}];
r[k_] := Select[Range[z], 1/2^(k + 1) < t[[#]] < 1/2^k &, 1];
Flatten[Table[r[k], {k, 0, 200}]] (* A283747 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 17 2017
EXTENSIONS
Offset and a(16) corrected and a(17)-a(33) added by Jon E. Schoenfield, Apr 02 2017
STATUS
approved