%I #12 Sep 08 2022 08:45:59
%S 0,2,4,5,7,8,10,11,13,14,16,17,19,20,22,23,25,26,28,30,31,33,34,36,37,
%T 39,40,42,43,45,46,48,49,51,52,54,56,57,59,60,62,63,65,66,68,69,71,72,
%U 74,75,77,78,80,81,83,85,86,88,89,91,92,94,95,97,98,100,101
%N a(n) = 8*n - floor(4*n*r), where r=(1+sqrt(5))/2 (the golden ratio.)
%H Vincenzo Librandi, <a href="/A195175/b195175.txt">Table of n, a(n) for n = 0..10000</a>
%t With[{c = GoldenRatio},Table[8*n - Floor[4*c*n],{n,0,50}]] (* _G. C. Greubel_, Oct 31 2017 *)
%o (Magma) [8*n-Floor(4*n*(1+Sqrt(5))/2): n in [0..70]]; // _Vincenzo Librandi_, Sep 12 2011
%o (PARI) for(n=0,50, print1(8*n - floor(2*n*(1 + sqrt(5)), ", ")) \\ _G. C. Greubel_, Oct 31 2017
%K nonn
%O 0,2
%A _Clark Kimberling_, Sep 10 2011
|