OFFSET
1,1
COMMENTS
Integers m for which there is a prime p that divides m, but p^3 does not divide m.
Complement of A036966.
EXAMPLE
2|24 and 2^3|24, but 3|24 and 3^3 does not divide 24, so 24 is a term.
MATHEMATICA
Select[Range[2, 100], Min[FactorInteger[#][[;; , 2]]] < 3 &] (* Amiram Eldar, Apr 09 2023 *)
PROG
(PARI) isok(k) = (k!=1) && (vecmin(factor(k)[, 2])<=2); \\ Michel Marcus, Apr 12 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Apr 09 2023
STATUS
approved