A055700 Numbers n such that n | Sigma_6(n) + Phi(n)^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,2

Comments

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

Links

Table of n, a(n) for n=1..38.

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A151288 A150245 A150246 * A279563 A150247 A150248

Adjacent sequences: A055697 A055698 A055699 * A055701 A055702 A055703

Keyword

nonn

Author

Robert G. Wilson v, Jun 09 2000

Extensions

More terms from Michel Marcus, Mar 02 2014

Status

approved