This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A119314 #10 Jul 02 2022 09:29:09 %S A119314 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 A119314 44,47,49,52,53,56,59,61,64,67,68,71,73,76,79,80,81,83,88,89,92,97,99, %U A119314 100,101,103,104,107,109,112,113,116,117,121,124,125,127,128,131,136,137 %N A119314 Complement of A119313. %C A119314 m is a term iff A001221(m) <= 1 or (A067029(m) > 1 and A020639(m)^2 <= A119288(m)). %H A119314 Amiram Eldar, <a href="/A119314/b119314.txt">Table of n, a(n) for n = 1..10000</a> %t A119314 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 A119314 Union of A119315 and A008578. %Y A119314 (Intersection with A119316) = A008578. %Y A119314 A000961 and A092259 are subsequences. %Y A119314 Cf. A001221, A020639, A067029, A119288, A119313. %K A119314 nonn %O A119314 1,2 %A A119314 _Reinhard Zumkeller_, May 15 2006