|
%I #13 Sep 08 2022 08:45:59
%S 0,3,5,7,9,11,14,16,18,20,22,25,27,29,31,33,36,38,40,42,44,47,49,51,
%T 53,55,57,60,62,64,66,68,71,73,75,77,79,82,84,86,88,90,93,95,97,99,
%U 101,103,106,108,110,112,114,117,119,121,123,125,128,130,132,134,136
%N a(n) = 3*n - floor(n*r/2), where r=(1+sqrt(5))/2 (the golden ratio).
%H Vincenzo Librandi, <a href="/A195167/b195167.txt">Table of n, a(n) for n = 0..10000</a>
%t With[{c = GoldenRatio},Table[3*n - Floor[c*n/2],{n,0,50}]] (* _G. C. Greubel_, Oct 31 2017 *)
%o (Magma) [3*n-Floor(n*(1+Sqrt(5))/4): n in [0..70]]; // _Vincenzo Librandi_, Sep 11 2011
%o (PARI) for(n=0,50, print1(3*n - floor(n*(1+sqrt(5))/4), ", ")) \\ _G. C. Greubel_, Oct 31 2017
%K nonn
%O 0,2
%A _Clark Kimberling_, Sep 10 2011
|
