A187392 Floor(s*n), where s=1+sqrt(8)-sqrt(7); complement of A189391.

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95, 96, 98, 99, 100, 101, 102, 104, 105, 106, 107, 108, 109, 111, 112, 113, 114, 115, 117, 118

Offset

1,2

Comments

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.

Links

Table of n, a(n) for n=1..100.

Formula

a(n)=floor(s*n), where s=1+sqrt(8)-sqrt(7).

Mathematica

k=8; r=1+k^(1/2)+(k-1)^(1/2); s=1+k^(1/2)-(k-1)^(1/2);
Table[Floor[r*n], {n, 1, 80}]  (* A187391 *)
Table[Floor[s*n], {n, 1, 80}]  (* A187392 *)
With[{c=1+Sqrt[8]-Sqrt[7]}, Floor[c*Range[100]]] (* Harvey P. Dale, Mar 04 2015 *)

Crossrefs

Cf. A187391.

Sequence in context: A145198 A083210 A345913 * A232741 A108120 A108586

Adjacent sequences: A187389 A187390 A187391 * A187393 A187394 A187395

Keyword

nonn

Author

Clark Kimberling, Mar 09 2011

Status

approved