login
A286747
Characteristic sequence of the Beatty sequence, A177102, of sqrt(10).
2
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
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
Sequence in context: A171588 A289035 A276397 * A131531 A022003 A353514
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 15 2017
STATUS
approved