%I #9 Nov 02 2019 06:42:38

%S 1,2,3,6,12,14,15,30,35,38,42,46,54,56,70,78,87,95,105,114,126,134,

%T 135,138,140,147,161,168,174,182,184,190,209,210,215,216,222,230,248,

%U 258,264,270,285,294,297,299,315,322,357,398,402,414,418,420

%N Numbers k such that phi(k) | sigma_15(k).

%C sigma_15(n) is the sum of the 15th powers of the divisors of n.

%H Amiram Eldar, <a href="/A015774/b015774.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[420], Divisible[DivisorSigma[15, #], EulerPhi[#]] &] (* _Amiram Eldar_, Nov 02 2019 *)

%Y Cf. A000010, A013963.

%Y Cf. A020492, A015759, A015761, A015762, A015763, A015764, A015765, A015766, A015767, A015768, A015769, A015770, A015771, A015773, A094470.

%K nonn

%O 1,2

%A _Robert G. Wilson v_

%E Offset corrected by _Amiram Eldar_, Nov 02 2019