A188295 a(n) = [n*r]-[n*r-r], where r=1/sqrt(2), [ ]=floor.

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

Offset

1

Comments

See A188014.

These are the first differences of A049472, so a(n) = A080764(n-2). - R. J. Mathar, Apr 19 2011

Links

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

Formula

a(n) = [n*r]-[r*(n-1)], where r=1/sqrt(2), [n*r] = A049472(n).

Mathematica

r=2^(-1/2); k=1;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (* A188295 *)
Flatten[Position[t, 0]]  (* A083051 *)
Flatten[Position[t, 1]]  (* A087057 *)
With[{c=1/Sqrt[2]}, Table[Floor[c n]-Floor[c n-c], {n, 130}]] (* Harvey P. Dale, Jun 15 2021 *)

Crossrefs

Cf. A188014, A083051, A087057, A187967, A049472, A080764.

Sequence in context: A022933 A194683 A306710 * A228039 A163532 A014578

Adjacent sequences: A188292 A188293 A188294 * A188296 A188297 A188298

Keyword

nonn

Author

Clark Kimberling, Mar 26 2011

Status

approved