A195172 a(n) = 4*n - floor(2*n*r), where r=(1+sqrt(5))/2 (the golden ratio).

0, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 10, 11, 12, 13, 13, 14, 15, 16, 17, 17, 18, 19, 20, 20, 21, 22, 23, 23, 24, 25, 26, 26, 27, 28, 29, 30, 30, 31, 32, 33, 33, 34, 35, 36, 36, 37, 38, 39, 39, 40, 41, 42, 43, 43, 44, 45, 46, 46, 47, 48, 49, 49, 50, 51, 52, 52, 53

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

Sequence in context: A037915 A195180 A069210 * A367193 A277425 A245335

Adjacent sequences: A195169 A195170 A195171 * A195173 A195174 A195175

Keyword

nonn

Author

Clark Kimberling, Sep 10 2011

Status

approved