|
%I #7 Mar 27 2017 08:41:14
%S 5,34,66,130,490,18130
%N phi(n) is equal to the sum of prime factors and exponents of n-1.
%e phi(34)=16, 33=3^1*11^1, 3+1+11+1=16.
%t Select[Range[20000],Total[Flatten[FactorInteger[#-1]]]==EulerPhi[#]&] (* _Harvey P. Dale_, Mar 27 2017 *)
%Y Cf. A000010, A008474.
%K nonn
%O 1,1
%A _Olivier Gérard_
%E Next term if it exists is >= 5*10^7 - _Naohiro Nomoto_, Jun 24 2001.
|
