|
|
A055702
|
|
Numbers n such that n | Sigma_8(n) + Phi(n)^8.
|
|
0
|
|
|
1, 2, 6, 86, 2033, 9617, 32052, 439369, 552012, 708292, 849660, 1869252, 2038140, 2083244, 2350089, 2569210, 2930460, 3875508, 4973090, 7248671, 13864156, 23500890, 25516264, 45711708, 57226685, 109512060, 112389732, 197121708, 240926532, 386807715, 395172531
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
sigma_8(n) is the sum of the 8th powers of the divisors of n (A013956).
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[If[Mod[DivisorSigma[8, n]+EulerPhi[n]^8, n]==0, Print[n]], {n, 1, 10^5}]
|
|
PROG
|
(PARI) isok(n) = !((sigma(n, 8) + eulerphi(n)^8) % n); \\ Michel Marcus, Mar 02 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|