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

0, 3, 5, 7, 9, 11, 14, 16, 18, 20, 22, 25, 27, 29, 31, 33, 36, 38, 40, 42, 44, 47, 49, 51, 53, 55, 57, 60, 62, 64, 66, 68, 71, 73, 75, 77, 79, 82, 84, 86, 88, 90, 93, 95, 97, 99, 101, 103, 106, 108, 110, 112, 114, 117, 119, 121, 123, 125, 128, 130, 132, 134, 136

Offset

0,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A285590 A195179 A033038 * A364668 A211218 A291839

Adjacent sequences: A195164 A195165 A195166 * A195168 A195169 A195170

Keyword

nonn

Author

Clark Kimberling, Sep 10 2011

Status

approved