A214989 - OEIS

%I #6 Nov 13 2012 13:01:16

%S 4,9,14,18,23,28,32,37,42,46,51,56,60,65,70,74,79,84,88,93,98,102,107,

%T 112,116,121,126,130,135,140,144,149,154,158,163,168,173,177,182,187,

%U 191,196,201,205,210,215,219,224,229,233,238,243,247,252,257

%N Beatty sequence [sqrt(phi)/(sqrt(phi)-1) * n], where phi = (1 + sqrt(5))/2 = golden ratio; complement of A214988.

%H Clark Kimberling, <a href="/A214989/b214989.txt">Table of n, a(n) for n = 1..10000</a>

%t r = Sqrt[GoldenRatio]; s = r/(r - 1);

%t Table[Floor[r*n], {n, 1, 120}] (* A214988 *)

%t Table[Floor[s*n], {n, 1, 120}] (* A214989 *)

%o (PARI) A214989(n)=my(sp=sqrt((sqrt(5)+1)/2));n*sp\(sp-1) \\ - _M. F. Hasler_, Nov 01 2012

%Y Cf. A214988.

%K nonn

%O 1,1

%A _Clark Kimberling_, Oct 28 2012