|
%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
|
