reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Select[Range[140], !CompositeQ[#] || ((f = FactorInteger[#])[[1, 2]] > 1 && (Length[f] == 1 || f[[1, 1]]^2 < f[[2, 1]])) &] (* Amiram Eldar, Jul 02 2022 *)
Amiram Eldar, <a href="/A119314/b119314.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, May 15 2006
nonn,new
nonn
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystemsgmail.com), May 15 2006
Complement of A119313.
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, 44, 47, 49, 52, 53, 56, 59, 61, 64, 67, 68, 71, 73, 76, 79, 80, 81, 83, 88, 89, 92, 97, 99, 100, 101, 103, 104, 107, 109, 112, 113, 116, 117, 121, 124, 125, 127, 128, 131, 136, 137
1,2
nonn,new
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), May 15 2006
approved