|
%I #7 Feb 07 2020 06:11:23
%S 1,0,1,0,1,1,0,1,1,1,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,1,
%T 1,1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,
%U 1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1
%N Start with 1 0 1 0 then add a one every time (e.g. 1 1 0 1 1 1 0 1 1 1 1 0 ...).
%F a(n)=A023532(n-2), n>1. [From _R. J. Mathar_, Aug 11 2008]
%t Flatten[Join[{1,0},Table[Join[PadRight[{},n,1],{0}],{n,20}]]] (* _Harvey P. Dale_, Dec 23 2012 *)
%Y Cf. A073424.
%Y Essentially the same sequence as A023532 and A123110. - _N. J. A. Sloane_, Feb 07 2020
%K nonn
%O 1,1
%A Dan M. Smith (SmittyDa33(AT)yahoo.com), Dec 14 2005
|
