|
%I #16 Sep 08 2022 08:45:59
%S 0,2,4,6,8,10,12,14,16,18,20,22,24,25,27,29,31,33,35,37,39,41,43,45,
%T 47,49,50,52,54,56,58,60,62,64,66,68,70,72,74,75,77,79,81,83,85,87,89,
%U 91,93,95,97,98,100,102,104,106,108,110,112,114,116,118,120,122
%N a(n) = 3*n - floor(2*n*r/3), where r=(1+sqrt(5))/2 (the golden ratio).
%H Vincenzo Librandi, <a href="/A195169/b195169.txt">Table of n, a(n) for n = 0..10000</a>
%p A195169:=n->3*n-floor(n*(1+sqrt(5))/3); seq(A195169(n), n=0..100); # _Wesley Ivan Hurt_, Dec 06 2013
%t Table[3 n - Floor[n (1 + Sqrt[5])/3], {n, 0, 100}] (* _Wesley Ivan Hurt_, Dec 06 2013 *)
%o (Magma) [3*n-Floor(n*(1+Sqrt(5))/3): n in [0..70]]; // _Vincenzo Librandi_, Sep 11 2011
%o (PARI) for(n=0,50, print1(3*n - floor(n*(1+sqrt(5))/3), ", ")) \\ _G. C. Greubel_, Oct 31 2017
%K nonn
%O 0,2
%A _Clark Kimberling_, Sep 10 2011
|
