OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..10000
MATHEMATICA
Table[2*n - Floor[n*GoldenRatio/2], {n, 0, 50}] (* G. C. Greubel, Oct 30 2017 *)
PROG
(Magma) [2*n-Floor(n*(1+Sqrt(5))/4): n in [0..70]]; // Vincenzo Librandi, Sep 11 2011
(Maxima) makelist(2*n-floor(n*((1+sqrt(5))/2)/2), n, 0, 64); /* Martin Ettl, Oct 17 2012 */
(PARI) for(n=0, 50, print1(2*n - floor((1+sqrt(5))*n/4), ", ")) \\ G. C. Greubel, Oct 30 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 09 2011
STATUS
approved