A231878 Numbers k such that bigomega(k)^2 (cf. A001222) divides k.
2, 3, 4, 5, 7, 11, 13, 16, 17, 18, 19, 23, 27, 29, 31, 37, 41, 43, 45, 47, 53, 59, 61, 63, 67, 71, 73, 79, 83, 89, 97, 99, 101, 103, 107, 109, 113, 117, 127, 131, 137, 139, 144, 149, 151, 153, 157, 163, 167, 171, 173, 179, 181, 191, 193, 197, 199, 200, 207, 211, 216, 223, 227, 229, 233, 239, 241, 251, 256, 257, 261, 263
Offset: 1
Keywords
Links
- Ivan Neretin, Table of n, a(n) for n = 1..13517 (all terms up to 10^5)
Programs
-
Mathematica
Select[Range[2, 265], Divisible[#, PrimeOmega[#]^2] &] (* Ivan Neretin, Apr 05 2016 *)
-
PARI
isok(n) = !(n % bigomega(n)^2); \\ Michel Marcus, Apr 05 2016
Comments