OFFSET
1,2
COMMENTS
sigma_10(k) = A013958(k) is the sum of the 10th powers of the divisors of k.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..623
MATHEMATICA
Select[Range[240000], Divisible[DivisorSigma[10, #], EulerPhi[#]] &] (* Amiram Eldar, Nov 06 2019 *)
PROG
(Magma) [k:k in [1..240000]| IsIntegral(DivisorSigma(10, k)/EulerPhi(k))]; // Marius A. Burtea, Nov 06 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved