login
a(n) = 1 if n-th composite number is squarefree, otherwise a(n) = 0.
0

%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