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

0, 2, 4, 6, 8, 9, 11, 13, 15, 16, 18, 20, 22, 23, 25, 27, 29, 30, 32, 34, 36, 38, 39, 41, 43, 45, 46, 48, 50, 52, 53, 55, 57, 59, 60, 62, 64, 66, 68, 69, 71, 73, 75, 76, 78, 80, 82, 83, 85, 87, 89, 90, 92, 94, 96, 98, 99, 101, 103, 105, 106, 108, 110, 112, 113, 115

Offset

0,2

Links

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

Mathematica

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

Prog

(Magma) [5*n-Floor(n*(1+Sqrt(5))): n in [0..70]]; // Vincenzo Librandi, Sep 11 2011
(PARI) for(n=0, 50, print1(5*n - floor(n*(1+sqrt(5))), ", ")) \\ G. C. Greubel, Oct 31 2017

Crossrefs

Sequence in context: A184740 A184638 A047294 * A215000 A228246 A184587

Adjacent sequences: A195170 A195171 A195172 * A195174 A195175 A195176

Keyword

nonn

Author

Clark Kimberling, Sep 10 2011

Extensions

Offset changed from 1 to 0 by Vincenzo Librandi, Sep 11 2011

Status

approved