|
%I #11 Oct 14 2016 11:45:37
%S 6,12,19,25,32,38,45,51,58,64,71,77,84,90,97,103,110,116,123,129,135,
%T 142,148,155,161,168,174,181,187,194,200,207,213,220,226,233,239,246,
%U 252,258,265,271,278,284,291,297,304,310,317,323,330,336,343,349,356,362,369,375,381,388,394,401,407,414,420,427,433,440,446,453
%N Floor(r*n), where r=1+sqrt(8)+sqrt(7); complement of A187392.
%C A187391 and A187392 are the Beatty sequences based on r=1+sqrt(8)+sqrt(7) and s=1+sqrt(8)-sqrt(7); 1/r+1/s=1.
%F a(n)=floor(r*n), where r=1+sqrt(8)+sqrt(7).
%t k=8; r=1+k^(1/2)+(k-1)^(1/2); s=1+k^(1/2)-(k-1)^(1/2);
%t Table[Floor[r*n],{n,1,80}] (* A187391 *)
%t Table[Floor[s*n],{n,1,80}] (* A187392 *)
%Y Cf. A187392.
%K nonn
%O 1,1
%A _Clark Kimberling_, Mar 09 2011
|
