1,2
sigma_4(n) is the sum of the 4th powers of the divisors of n (A001159).
Do[If[Mod[DivisorSigma[4, n]+EulerPhi[n]^4, n]==0, Print[n]], {n, 1, 10^6}]
Sequence in context: A071093 A114045 A116899 this_sequence A121167 A115658 A005607
Adjacent sequences: A055695 A055696 A055697 this_sequence A055699 A055700 A055701
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
Search completed in 0.002 seconds