A015768 Numbers k such that phi(k) | sigma_10(k).
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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..623
Crossrefs
Programs
-
Magma
[k:k in [1..240000]| IsIntegral(DivisorSigma(10,k)/EulerPhi(k))]; // Marius A. Burtea, Nov 06 2019
-
Mathematica
Select[Range[240000], Divisible[DivisorSigma[10, #], EulerPhi[#]] &] (* Amiram Eldar, Nov 06 2019 *)
Comments