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

Comments

Contains all primes. - Ivan Neretin, Apr 05 2016

Links

Ivan Neretin, Table of n, a(n) for n = 1..13517 (all terms up to 10^5)

Mathematica

Select[Range[2, 265], Divisible[#, PrimeOmega[#]^2] &] (* Ivan Neretin, Apr 05 2016 *)

Prog

(PARI) isok(n) = !(n % bigomega(n)^2); \\ Michel Marcus, Apr 05 2016

Crossrefs

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

Sequence in context: A055464 A139316 A062972 * A285304 A036844 A284696

Adjacent sequences: A231875 A231876 A231877 * A231879 A231880 A231881

Keyword

nonn

Author

N. J. A. Sloane, Nov 17 2013

Status

approved