OFFSET
1,1
COMMENTS
Of the 65 terms below 10^9, only 2 have more than 2 prime factors: a(9) = 17^3 and a(36) = 257^3, and 11 are prime powers: a(1) = 2^2, a(2) = 3^2, a(4) = 17^2, a(9) = 17^3, a(11) = 137^2, a(14) = 257^2, a(15) = 359^2, a(20) = 719^2, a(25) = 1439^2, a(32) = 2879^2, and a(36) = 257^3.
LINKS
Amiram Eldar and Giovanni Resta, Table of n, a(n) for n = 1..93 (terms < 5*10^10, first 65 terms from Amiram Eldar)
MATHEMATICA
sumTot[n_] := Plus @@ FixedPointList[ EulerPhi@ # &, n] - 1; a={}; smax=0; For[k=1, k<300000, k++; s=sumTot[k]; If[s>smax, smax=s; If[!PrimeQ[k], a=AppendTo[a, k]]]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 07 2017
STATUS
approved