|
|
A093038
|
|
Numbers k such that sum of 5th powers of divisors of k is divisible by the square of Euler-phi of k.
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Do[ If[ Mod[ DivisorSigma[5, n], EulerPhi[n]^2] == 0, Print[n]], {n, 10^7}] (* Robert G. Wilson v, May 23 2004 *)
|
|
PROG
|
(PARI) isok(k) = (sigma(k, 5) % eulerphi(k)^2) == 0; \\ Michel Marcus, Mar 07 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|