OFFSET
1,1
COMMENTS
Subset of A144100.
PROG
(PARI) rad(n) = local(p); p=factor(n)[, 1]; prod(i=1, length(p), p[i]) ;
ff(n) = if ((n % 4)==0 , 2*rad(n), rad(n)); isok(n) = (n != 1) && (! isprime(n)) && (n > ff(n)^2); \\ Michel Marcus, Aug 09 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Reikku Kulon, Sep 23 2008
STATUS
approved