OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[p_, e_] := If[OddQ[e], p, 1]; sqf[n_] := Times @@ (f @@@ FactorInteger[n]); seq = {}; s = 0; Do[s += sqf[n]; If[s > n*EulerPhi[n], AppendTo[seq, n]], {n, 1, 400}]; seq (* Amiram Eldar, Apr 02 2020 *)
PROG
(PARI) is(n)=sum(k=1, n, core(k)) > n*eulerphi(n) \\ Charles R Greathouse IV, Feb 21 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 05 2002
EXTENSIONS
Edited by Dean Hickerson, Apr 09 2002
STATUS
approved