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,2

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

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 *)

Crossrefs

Union of A119315 and A008578.

(Intersection with A119316) = A008578.

A000961 and A092259 are subsequences.

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

Sequence in context: A362621 A133811 A316525 * A317923 A371058 A344979

Adjacent sequences: A119311 A119312 A119313 * A119315 A119316 A119317

Keyword

nonn

Author

Reinhard Zumkeller, May 15 2006

Status

approved