A119314 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

Offset: 1

Author

Reinhard Zumkeller, May 15 2006

Keywords

• nonn

Comments

m is a term iff A001221(m) <= 1 or (A067029(m) > 1 and A020639(m)^2 <= A119288(m)).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Union of A119315 and A008578.

(Intersection with A119316) = A008578.

A000961 and A092259 are subsequences.

Cf. A001221, A020639, A067029, A119288, A119313.

Programs

Mathematica

Select[Range[140], !CompositeQ[#] || ((f = FactorInteger[#])[[1, 2]] > 1 && (Length[f] == 1 || f[[1, 1]]^2 < f[[2, 1]])) &] (* Amiram Eldar, Jul 02 2022 *)