login
A039773
phi(n) is equal to the sum of prime factors and exponents of n-1.
0
5, 34, 66, 130, 490, 18130
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
Sequence in context: A268281 A223137 A068560 * A289947 A272955 A317297
KEYWORD
nonn
EXTENSIONS
Next term if it exists is >= 5*10^7 - Naohiro Nomoto, Jun 24 2001.
STATUS
approved