login
A195169
a(n) = 3*n - floor(2*n*r/3), where r=(1+sqrt(5))/2 (the golden ratio).
1
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 10 2011
STATUS
approved