A231876 Numbers n such that omega(n)^2 (cf. A001221) divides n.
2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 36, 37, 40, 41, 43, 44, 47, 48, 49, 52, 53, 56, 59, 61, 64, 67, 68, 71, 72, 73, 76, 79, 80, 81, 83, 88, 89, 90, 92, 96, 97, 100, 101, 103, 104, 107, 108, 109, 112, 113, 116, 121, 124, 125, 126, 127, 128, 131, 136, 137, 139, 144, 148, 149
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1100
Crossrefs
Programs
-
Maple
select(n -> n mod nops(numtheory:-factorset(n))^2 = 0, [$2..1000]); # Robert Israel, Apr 25 2017
-
Mathematica
Select[Range[2, 500], Mod[#, PrimeNu[#]^2] == 0 &] (* G. C. Greubel, Apr 24 2017 *)
-
PARI
isok(n) = !(n % omega(n)^2); \\ Michel Marcus, Apr 25 2017
Comments