|
%I #6 Jan 10 2013 17:14:52
%S 1,0,1,1,0,1,1,1,1,0,1,1,0,1,0,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,0,1,1,0,
%T 1,0,1,1,0,1,1,1,1,0,1,1,0,1,0,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,0,1,1,0,
%U 1,0,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,0,1,1,0,1,0,1,1,0,1,1,1,1,0,1,1,0,1,0,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,0,1,1,0,1
%N [nr+kr]-[nr]-[kr], where r=(1+sqrt(5))/2, k=6, [ ]=floor.
%C See A187950.
%F a(n)=[nr+6r]-[nr]-9, where r=(1+sqrt(5))/2.
%t r=(1+5^(1/2))/2;
%t seqA=Table[Floor[(n+6)r]-Floor[n*r]-9, {n,1,220}] (* A187948 *)
%t Flatten[Position[seqA,0] ] (* A187949 *)
%t Flatten[Position[seqA,1] ] (* A187953 *)
%t f[n_]:=Module[{a=GoldenRatio*n,b=GoldenRatio*6},Floor[a+b]-Floor[a]-Floor[b]]; Array[f,130] (* _Harvey P. Dale_, Jan 10 2013 *)
%Y Cf. A187950, A187949, A187953.
%K nonn
%O 1
%A _Clark Kimberling_, Mar 16 2011
|
