A286747 Characteristic sequence of the Beatty sequence, A177102, of sqrt(10).

0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0

Offset

1

Comments

The positions of 0 are given by A286355, and of 1, by A177102.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Formula

a(n) = 1 - floor((n+1)*(1-1/r)) + floor(n*(1-1/r)), where r = sqrt(10). [corrected by Georg Fischer, Sep 01 2022]

Mathematica

r = Sqrt[10];
s = 1 - Table[Floor[(n + 1) (1 - 1/r) - Floor[n (1 - 1/r)]], {n, 1, 200}] (* A286747 *)
u = Flatten[Position[s, 0]] (* A286355 *)
Flatten[Position[s, 1]] (* A177102 *)

Crossrefs

Cf. A177102, A286355.

Sequence in context: A171588 A289035 A276397 * A131531 A022003 A353514

Adjacent sequences: A286744 A286745 A286746 * A286748 A286749 A286750

Keyword

nonn,easy

Author

Clark Kimberling, May 15 2017

Status

approved