OFFSET
1,1
EXAMPLE
phi(34)=16, 33=3^1*11^1, 3+1+11+1=16.
MATHEMATICA
Select[Range[20000], Total[Flatten[FactorInteger[#-1]]]==EulerPhi[#]&] (* Harvey P. Dale, Mar 27 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Next term if it exists is >= 5*10^7 - Naohiro Nomoto, Jun 24 2001.
STATUS
approved