A188472 - OEIS

%I #12 Oct 22 2016 09:36:30

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

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

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

%N a(n) = [6r]-[nr]-[6r-nr], where r=(1+sqrt(5))/2 and []=floor.

%C See A188294.

%C Essentially the same as A188017. - _Michel Dekking_, Oct 15 2016

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

%F a(n) = 1-A188017(n) for n not equal to 6 (from [-x]=-[x]-1 for non-integer x). - _Michel Dekking_, Oct 15 2016

%t r = (1 + 5^(1/2))/2 + .0000000000001;

%t f[n_] := Floor[6r] - Floor[n*r] - Floor[6r - n*r]

%t t = Flatten[Table[f[n], {n, 1, 200}]] (* A188472 *)

%t Flatten[Position[t, 0] ]  (* complement of A188473 *)

%t Flatten[Position[t, 1] ]  (* A188473 *)

%t f[n_]:=Module[{gr6=6*GoldenRatio,nr=n*GoldenRatio},Floor[gr6] - Floor[nr] - Floor[gr6-nr]]; Array[f,140] (* _Harvey P. Dale_, Nov 14 2012 *)

%Y Cf. A188294, A188473, A188017.

%K nonn

%O 1

%A _Clark Kimberling_, Apr 01 2011