A187967 - OEIS

%I #5 Mar 30 2012 18:57:21

%S 1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,

%T 1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,0,

%U 1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,0

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

%C See A187950.

%t r=2^(1/2); k=2

%t seqA=Table[Floor[(n+2)r]-Floor[n*r]-Floor[k*r], {n,1,220}]   (* A187967 *)

%t Flatten[Position[seqA,0] ]   (* A098021 conjectured *)

%t Flatten[Position[seqA,1] ]   (* A187968 *)

%Y Cf. A187950, A098021, A187968.

%K nonn

%O 1

%A _Clark Kimberling_, Mar 17 2011