|
%I #4 Mar 30 2012 18:57:22
%S 9,13,17,26,30,34,43,47,51,60,64,68,77,81,85,89,98,102,106,115,119,
%T 123,132,136,140,149,153,157,161,170,174,178,187,191,195,204,208,212,
%U 221,225,229,233,242,246,250,259,263,267,276,280,284,293,297,301,305,314,318,322,331,335,339,348,352,356,365,369,373,382,386,390,394,403,407,411,420,424
%N Positions of 1 in the zero-one sequence [nr]-[5r]-[nr-5r], where r=sqrt(5), n>=1.
%C See A188014.
%t r=5^(1/2)); k=5;
%t t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r],{n,1,220}]
%t Flatten[Position[t,1]] (*A188220*)
%Y Cf. A188014.
%K nonn
%O 1,1
%A _Clark Kimberling_, Mar 24 2011
|
