|
%I #14 Jul 23 2023 01:52:59
%S 2,3,4,5,7,11,13,16,17,18,19,23,27,29,31,37,41,43,45,47,53,59,61,63,
%T 67,71,73,79,83,89,97,99,101,103,107,109,113,117,127,131,137,139,144,
%U 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
%N Numbers k such that bigomega(k)^2 (cf. A001222) divides k.
%C Contains all primes. - _Ivan Neretin_, Apr 05 2016
%H Ivan Neretin, <a href="/A231878/b231878.txt">Table of n, a(n) for n = 1..13517</a> (all terms up to 10^5)
%t Select[Range[2, 265], Divisible[#, PrimeOmega[#]^2] &] (* _Ivan Neretin_, Apr 05 2016 *)
%o (PARI) isok(n) = !(n % bigomega(n)^2); \\ _Michel Marcus_, Apr 05 2016
%Y Cf. A001221, A075592, A185307, A001222, A074946, A134334, A231879 (complement).
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 17 2013
|
