OFFSET

0,3

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..10000

FORMULA

a(n) = A189663(2n). - R. J. Mathar, Sep 11 2011

MATHEMATICA

With[{c = GoldenRatio}, Table[4*n - Floor[2*c*n], {n, 0, 50}]] (* G. C. Greubel, Oct 31 2017 *)

PROG

(Magma) [4*n-Floor(n*(1+Sqrt(5))): n in [0..70]]; // Vincenzo Librandi, Sep 11 2011

(PARI) for(n=0, 50, print1(4*n - floor(n*(1+sqrt(5))), ", ")) \\ G. C. Greubel, Oct 31 2017

CROSSREFS

KEYWORD

nonn

AUTHOR

Clark Kimberling, Sep 10 2011

STATUS

approved