%I A030229
%S A030229 1,6,10,14,15,21,22,26,33,34,35,38,39,46,51,55,57,58,62,65,69,74,77,82,
%T A030229 85,86,87,91,93,94,95,106,111,115,118,119,122,123,129,133,134,141,142,
%U A030229 143,145,146,155,158,159,161,166,177,178,183,185,187,194,201,202,203,205,
               206,209,210,213,214
%N A030229 Product of an even number of distinct primes.
%H A030229 T. D. Noe, <a href="b030229.txt">Table of n, a(n) for n=1..1000</a>
%H A030229 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               MoebiusFunction.html">Moebius Function</a>
%p A030229 a := n -> `if`(numtheory[mobius](n)=1,n,NULL); seq(a(i),i=1..214); [From 
               Peter Luschny (peter(AT)luschny.de), May 04 2009]
%o A030229 (PARI from M. F. Hasler):
%o A030229 isA030229(n)={ #(n=factor(n)[,2]) % 2 == 0 && (!n || vecmax(n)==1 )}
%o A030229 for(n=1,500, isA030229(n)&print1(n","))
%Y A030229 Cf. A006881, A151797.
%Y A030229 Sequence in context: A120944 A052053 A006881 this_sequence A162730 A093772 
               A046400
%Y A030229 Adjacent sequences: A030226 A030227 A030228 this_sequence A030230 A030231 
               A030232
%K A030229 nonn,easy,nice
%O A030229 1,2
%A A030229 David W. Wilson (davidwwilson(AT)comcast.net)