%I #17 Oct 19 2015 17:10:31
%S 1,2,3,5,7,8,11,12,13,16,17,18,19,20,23,24,27,28,29,30,31,32,36,37,40,
%T 41,42,43,44,45,47,48,50,52,53,54,56,59,60,61,63,64,66,67,68,70,71,72,
%U 73,75,76,78,79,80,81,83,84,88,89,90,92,96,97,98,99,100,101,102,103,104
%N Non-semiprimes.
%C A001222(a(n)) <> 2; a(n) <> A020639(a(n)) * A006530(a(n)); complement of A001358; A064911(a(n)) = 0.
%C A174956(a(n)) = 0. - _Reinhard Zumkeller_, Apr 03 2010
%H Donald Alan Morrison, <a href="/A100959/b100959.txt">Table of n, a(n) for n = 1..10000</a>
%H Donald Alan Morrison, <a href="/A100959/a100959.txt">Sage program</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Semiprime.html">Semiprime</a>
%t Select[Range[120], ! PrimeOmega[#] == 2 &] (* _Vincenzo Librandi_, Jun 14 2014 *)
%o (PARI) isok(n) = (bigomega(n) != 2) \\ _Michel Marcus_, Aug 01 2013
%K nonn,easy
%O 1,2
%A _Reinhard Zumkeller_, Nov 24 2004
|