A286747 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

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 *)