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

0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122

Offset

0,2

Links

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

Maple

A195169:=n->3*n-floor(n*(1+sqrt(5))/3); seq(A195169(n), n=0..100); # Wesley Ivan Hurt, Dec 06 2013

Mathematica

Table[3 n - Floor[n (1 + Sqrt[5])/3], {n, 0, 100}] (* Wesley Ivan Hurt, Dec 06 2013 *)

Prog

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

Crossrefs

Sequence in context: A055962 A337718 A246410 * A338922 A055964 A055966

Adjacent sequences: A195166 A195167 A195168 * A195170 A195171 A195172

Keyword

nonn

Author

Clark Kimberling, Sep 10 2011

Status

approved