%I #5 Apr 27 2018 13:30:32
%S 0,1,0,0,1,0,1,1,0,0,0,1,1,0,0,1,0,0,1,0,1,1,1,0,1,1,0,1,0,0,1,0,0,0,
%T 1,0,0,1,0,1,1,0,1,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,1,0,0,1,0,1,
%U 1,1,0,0,0,0,1,0,1,1,0,1,1,0,1,1,0,0
%N a(n) = 1 if n-th composite number is squarefree, otherwise a(n) = 0.
%t If[SquareFreeQ[#],1,0]&/@Select[Range[200],CompositeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 27 2018 *)
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Nov 19 2005
%E More terms from _Harvey P. Dale_, Apr 27 2018