OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Module[{e = FactorInteger[n][[;; , 2]], prod}, (prod = Times @@ (e + 1)) != 8 && Divisible[prod * GCD @@ e, 8] ]; Select[Range[840], q] (* Amiram Eldar, Jan 02 2021 *)
PROG
(PARI) isok(n) = {prd = 1; fordiv(n, d, prd = prd*d); ispower(prd, 4) && (prd != n^4); } \\ Michel Marcus, Oct 04 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Ant King, Nov 11 2005
EXTENSIONS
More terms from Michel Marcus, Oct 04 2013
STATUS
approved