A055700 Numbers k such that k | sigma_6(k) + phi(k)^6.

1, 2, 6, 22, 84, 350, 525, 1150, 1652, 2366, 2996, 6677, 8140, 8371, 9084, 11510, 11825, 27885, 30694, 43000, 44988, 45060, 49585, 172250, 207194, 312312, 335634, 364084, 568575, 887250, 1183000, 1588956, 1799240, 1829256, 1913975, 2455350, 3523800, 3678454

Offset: 1

Author

Robert G. Wilson v, Jun 09 2000

Keywords

• nonn

Comments

sigma_6(k) is the sum of the 6th powers of the divisors of k (A013954).

Links

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

Crossrefs

Cf. A000010, A013954.

Programs

Mathematica

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

PARI

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

Extensions

More terms from Michel Marcus, Mar 02 2014