login
A195173
a(n) = 5*n - floor(2n*r), where r=(1+sqrt(5))/2 (the golden ratio).
1
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 10 2011
EXTENSIONS
Offset changed from 1 to 0 by Vincenzo Librandi, Sep 11 2011
STATUS
approved