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 this_sequence A128265 A087277 A007188
Adjacent sequences: A055699 A055700 A055701 this_sequence A055703 A055704 A055705
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
Search completed in 0.002 seconds