A231877 Numbers n such that omega(n)^2 (cf. A001221) does not divide n.

1, 6, 10, 14, 15, 18, 21, 22, 26, 30, 33, 34, 35, 38, 39, 42, 45, 46, 50, 51, 54, 55, 57, 58, 60, 62, 63, 65, 66, 69, 70, 74, 75, 77, 78, 82, 84, 85, 86, 87, 91, 93, 94, 95, 98, 99, 102, 105, 106, 110, 111, 114, 115, 117, 118, 119, 120, 122, 123, 129, 130, 132, 133, 134, 135, 138, 140, 141, 142, 143, 145, 146, 147, 150

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1300

Mathematica

Join[{1}, Select[Range[2, 500], Mod[#, PrimeNu[#]^2] != 0  &]] (* G. C. Greubel, Apr 24 2017 *)

Crossrefs

Cf. A001221, A075592, A185307, A001222, A074946, A134334, A231876 (complement).

Sequence in context: A300080 A069169 A230766 * A080364 A325230 A227299

Adjacent sequences: A231874 A231875 A231876 * A231878 A231879 A231880

Keyword

nonn

Author

N. J. A. Sloane, Nov 17 2013

Status

approved