A015767 Numbers k such that phi(k) | sigma_9(k).
1, 2, 3, 6, 12, 14, 15, 30, 35, 38, 42, 54, 56, 70, 78, 87, 95, 105, 114, 126, 135, 140, 147, 168, 174, 182, 190, 209, 210, 215, 216, 222, 248, 258, 264, 266, 270, 285, 294, 297, 315, 342, 357, 378, 418, 420, 430, 447, 455, 456, 494, 518, 540, 546
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Range[500], Divisible[DivisorSigma[9, #], EulerPhi[#]] &] (* Amiram Eldar, Nov 02 2019 *)
Extensions
Offset corrected by Amiram Eldar, Nov 02 2019
Comments