A188374 - OEIS

A188374

[nr+kr]-[nr]-[kr], where r=1/sqrt(2), k=2, [ ]=floor.

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

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

OFFSET

COMMENTS

See A187950. For k=1 instead of 2, see A080764 for which the position sequences of 0 and 1 are A001952 and A001951, respectively.

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..10000

FORMULA

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

MATHEMATICA

r=2^(-1/2); k=2;

t=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r], {n, 1, 220}] (* A188374 *)

Flatten[Position[t, 0] ] (* A188375 *)