1,2
sigma_8(n) is the sum of the 8th powers of the divisors of n.
Do[If[Mod[DivisorSigma[8, n]+EulerPhi[n]^8, n]==0, Print[n]], {n, 1, 10^5}]
Sequence in context: A055706 A118537 A109892 * A179214 A128265 A087277
Adjacent sequences: A055699 A055700 A055701 * A055703 A055704 A055705
nonn,more
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000