%I #19 Sep 08 2022 08:44:40
%S 1,2,3,6,22,33,66,166,250,375,498,750,1506,1826,5478,8250,10375,10873,
%T 16566,17762,20750,21746,31125,32619,41666,53286,62250,62499,65238,
%U 98250,110066,119603,124998,177153,195382,228250,239206
%N Numbers k such that phi(k) | sigma_10(k).
%C sigma_10(k) = A013958(k) is the sum of the 10th powers of the divisors of k.
%H Amiram Eldar, <a href="/A015768/b015768.txt">Table of n, a(n) for n = 1..623</a>
%t Select[Range[240000], Divisible[DivisorSigma[10, #], EulerPhi[#]] &] (* _Amiram Eldar_, Nov 06 2019 *)
%o (Magma) [k:k in [1..240000]| IsIntegral(DivisorSigma(10,k)/EulerPhi(k))]; // _Marius A. Burtea_, Nov 06 2019
%Y Cf. A000010, A013958.
%Y Cf. A020492, A015759, A015761, A015762, A015763, A015764, A015765, A015766, A015767, A015769, A015770, A015771, A015773, A015774, A094470.
%K nonn
%O 1,2
%A _Robert G. Wilson v_
|