A015770 Numbers k such that phi(k) divides sigma_12(k).
1, 2, 3, 6, 249, 498, 118578, 99295058, 297885174, 4005374907
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[1200000],Divisible[DivisorSigma[12,#],EulerPhi[#]]&] (* Harvey P. Dale, Dec 04 2015 *)
Extensions
Corrected by Harvey P. Dale, Dec 04 2015
Offset corrected by and a(8)-a(10) from Giovanni Resta, Aug 22 2017
Comments