OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..10000
MAPLE
MATHEMATICA
Table[3 n - Floor[n (1 + Sqrt[5])/3], {n, 0, 100}] (* Wesley Ivan Hurt, Dec 06 2013 *)
PROG
(Magma) [3*n-Floor(n*(1+Sqrt(5))/3): n in [0..70]]; // Vincenzo Librandi, Sep 11 2011
(PARI) for(n=0, 50, print1(3*n - floor(n*(1+sqrt(5))/3), ", ")) \\ G. C. Greubel, Oct 31 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 10 2011
STATUS
approved