|
%I #13 Apr 24 2022 06:36:35
%S 2,4,6,10,16,28,78,114,152,165,186,222,224,238,256,402,496,654,704,
%T 738,762,834,942,1086,1194,1266,1456,1485,1665,1722,1842,1972,2022,
%U 2132,2223,2274,2454,2528,2754,2922,2994,3246,3426,3462,3472,3786,4506,4614
%N Numbers k such that phi(k) = phi(sigma(k)-k).
%H Amiram Eldar, <a href="/A067880/b067880.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[5000], EulerPhi[#] == EulerPhi[DivisorSigma[1, #] - #] &] (* _Amiram Eldar_, Apr 24 2022 *)
%Y Cf. A000010, A000203, A001065, A006872.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Mar 02 2002
|
