login
A015768
Numbers k such that phi(k) | sigma_10(k).
10
1, 2, 3, 6, 22, 33, 66, 166, 250, 375, 498, 750, 1506, 1826, 5478, 8250, 10375, 10873, 16566, 17762, 20750, 21746, 31125, 32619, 41666, 53286, 62250, 62499, 65238, 98250, 110066, 119603, 124998, 177153, 195382, 228250, 239206
OFFSET
1,2
COMMENTS
sigma_10(k) = A013958(k) is the sum of the 10th powers of the divisors of k.
LINKS
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
KEYWORD
nonn
STATUS
approved