|
%I #10 Jul 02 2022 09:29:09
%S 1,2,3,4,5,7,8,9,11,13,16,17,19,20,23,25,27,28,29,31,32,37,40,41,43,
%T 44,47,49,52,53,56,59,61,64,67,68,71,73,76,79,80,81,83,88,89,92,97,99,
%U 100,101,103,104,107,109,112,113,116,117,121,124,125,127,128,131,136,137
%N Complement of A119313.
%C m is a term iff A001221(m) <= 1 or (A067029(m) > 1 and A020639(m)^2 <= A119288(m)).
%H Amiram Eldar, <a href="/A119314/b119314.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[140], !CompositeQ[#] || ((f = FactorInteger[#])[[1, 2]] > 1 && (Length[f] == 1 || f[[1, 1]]^2 < f[[2, 1]])) &] (* _Amiram Eldar_, Jul 02 2022 *)
%Y Union of A119315 and A008578.
%Y (Intersection with A119316) = A008578.
%Y A000961 and A092259 are subsequences.
%Y Cf. A001221, A020639, A067029, A119288, A119313.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, May 15 2006
|
