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

Author

N. J. A. Sloane, Nov 17 2013

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

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