OFFSET
1,1
COMMENTS
The sequence is complete.
LINKS
Eric Weisstein's World of Mathematics, Totient Function
MATHEMATICA
PowerfulQ[1] := True; PowerfulQ[n_Integer?Positive] := Min[Last /@ FactorInteger[n]] > 1; Select[Range[100], PowerfulQ[#] && #/EulerPhi[#] >= E^EulerGamma*Log[Log[#]] &] (* G. C. Greubel, Oct 02 2017 *)
PROG
(PARI) a=exp(Euler); for(n=4, 88200, if(ispowerful(n)&&n/eulerphi(n)>=a*log(log(n)), print1(n, ", ")));
CROSSREFS
KEYWORD
nonn,easy,fini,full
AUTHOR
Arkadiusz Wesolowski, Oct 20 2013
STATUS
approved