A188295 [nr]-[nr-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)=[nr]-[r(n-1)], where r=1/sqrt(2), [nr] = 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.

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