%I #15 Mar 02 2014 10:08:41
%S 1,2,12,34,44,90,168,258,752,765,954,1343,2795,3336,4114,4200,5964,
%T 6354,9118,11070,11504,11904,15800,20368,40070,48950,65670,91800,
%U 94240,144284,177120,226772,312675,334822,451350,518469,761780,804272,1092960,1448747,1815800
%N Numbers n such that n | (sigma_5(n) - phi(n)^5).
%C sigma_5(n) is the sum of the 5th powers of the divisors of n (A001160).
%H Robert G. Wilson v, <a href="/A055699/b055699.txt">Table of n, a(n) for n = 1..140</a>
%t Select[Range@ 200000, Mod[DivisorSigma[5, #] - EulerPhi[#]^5, #] == 0 &]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 09 2000
%E Definition and formula corrected by _Robert G. Wilson v_, Mar 12 2013
|