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

0, 2, 4, 5, 7, 8, 10, 11, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 30, 31, 33, 34, 36, 37, 39, 40, 42, 43, 45, 46, 48, 49, 51, 52, 54, 56, 57, 59, 60, 62, 63, 65, 66, 68, 69, 71, 72, 74, 75, 77, 78, 80, 81, 83, 85, 86, 88, 89, 91, 92, 94, 95, 97, 98, 100, 101

Offset

0,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A001651 A224999 A274384 * A248607 A191266 A003253

Adjacent sequences: A195172 A195173 A195174 * A195176 A195177 A195178

Keyword

nonn

Author

Clark Kimberling, Sep 10 2011

Status

approved