|
%I #17 Sep 08 2022 08:45:55
%S 2,4,7,9,11,14,16,19,21,23,26,28,30,33,35,38,40,42,45,47,50,52,54,57,
%T 59,61,64,66,69,71,73,76,78,80,83,85,88,90,92,95,97,100,102,104,107,
%U 109,111,114,116,119,121,123,126,128,131,133
%N Beatty sequence for (7 - sqrt(5))/2.
%C See the first comment at A182760; its complement, A182761, gives the positions of the numbers k*sqrt(5) when these numbers and the numbers j*u, where u = golden ratio, are jointly ranked.
%H Vincenzo Librandi, <a href="/A182761/b182761.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = floor(n*(7 - sqrt(5))/2).
%t Table[Floor[n*(7-Sqrt[5])/2], {n,1,80}] (* _G. C. Greubel_, Jul 08 2018 *)
%o (Magma) [Floor(n*(7-5^(1/2))/2): n in [1..80]]; // _Vincenzo Librandi_, Oct 25 2011
%o (PARI) for(n=1,80, print1(floor(n*(7-sqrt(5))/2), ", ")) \\ _G. C. Greubel_, Jul 08 2018
%Y Cf. A182760.
%K nonn
%O 1,1
%A _Clark Kimberling_, Nov 28 2010
%E Typo in formula corrected by _Vincenzo Librandi_, Oct 25 2011
|
