%I #14 Sep 08 2022 08:45:59
%S 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,
%T 45,46,48,50,52,53,55,57,59,60,62,64,66,68,69,71,73,75,76,78,80,82,83,
%U 85,87,89,90,92,94,96,98,99,101,103,105,106,108,110,112,113,115
%N a(n) = 5*n - floor(2n*r), where r=(1+sqrt(5))/2 (the golden ratio).
%H Vincenzo Librandi, <a href="/A195173/b195173.txt">Table of n, a(n) for n = 0..10000</a>
%t With[{c = GoldenRatio}, Table[5*n - Floor[2*c*n], {n,0,50}]] (* _G. C. Greubel_, Oct 31 2017 *)
%o (Magma) [5*n-Floor(n*(1+Sqrt(5))): n in [0..70]]; // _Vincenzo Librandi_, Sep 11 2011
%o (PARI) for(n=0,50, print1(5*n - floor(n*(1+sqrt(5))), ", ")) \\ _G. C. Greubel_, Oct 31 2017
%K nonn
%O 0,2
%A _Clark Kimberling_, Sep 10 2011
%E Offset changed from 1 to 0 by _Vincenzo Librandi_, Sep 11 2011