OFFSET
1,1
COMMENTS
LINKS
FORMULA
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n], i = 2 - Mod[n, 2]}, AllTrue[f[[;; , 2]], # > 1 &] && AnyTrue[f[[i;; -1, 2]], EvenQ]]; Select[Range[2000], q]
PROG
(PARI) is(k) = {my(f = factor(k), i = 1 + !(k % 2)); ispowerful(f) && #select(x -> !(x%2), f[i..#f~, 2]) > 0; }
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Sep 16 2024
STATUS
approved