login
A055700
Numbers n such that n | Sigma_6(n) + Phi(n)^6.
0
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).
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
EXTENSIONS
More terms from Michel Marcus, Mar 02 2014
STATUS
approved