A055704 Numbers k such that n | sigma_10(k) + phi(k)^10.

1, 2, 6, 38, 551, 589, 750, 2510, 3277, 7801, 9940, 11359, 16810, 19875, 21250, 23700, 30450, 33000, 34350, 41005, 117670, 132300, 144300, 145150, 161700, 234635, 242550, 249000, 308700, 365750, 407925, 423801, 437250, 468150, 524700, 577850, 585206, 616585

Offset

1,2

Comments

sigma_10(k) is the sum of the 10th powers of the divisors of k (A013958).

Links

Amiram Eldar, Table of n, a(n) for n = 1..170

Mathematica

Do[If[Mod[DivisorSigma[10, n]+EulerPhi[n]^10, n]==0, Print[n]], {n, 1, 10^5}]

Prog

(PARI) isok(n) = !((sigma(n, 10) + eulerphi(n)^10) % n); \\ Michel Marcus, Mar 02 2014

Crossrefs

Cf. A000010, A013958.

Sequence in context: A002031 A184731 A005738 * A005740 A367904 A006536

Adjacent sequences: A055701 A055702 A055703 * A055705 A055706 A055707

Keyword

nonn,changed

Author

Robert G. Wilson v, Jun 09 2000

Extensions

More terms from Michel Marcus, Mar 02 2014

Status

approved