OFFSET
0
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..10000
MATHEMATICA
r = (1+Sqrt[5])/2; z = 200;
t = Table[Floor[(2 n + 3) r] - Floor[(n*r + 3 r)] - Floor[n*r], {n, 0, z}] (* fixed by Jianing Song, Sep 30 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Sep 02 2019
STATUS
approved