A015796 Numbers k such that phi(k) + 5 | sigma(k).
4, 10, 32, 60, 88, 688, 2544, 3424, 12200, 62848, 777984, 1037824, 16734208, 67022848, 8625555968, 51537444864, 1099500617728
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[100000], Divisible[DivisorSigma[1, #], EulerPhi[#] + 5] &] (* David Nacin, Feb 28 2012 *)
Extensions
More terms from Jud McCranie, Dec 26 1999
Offset corrected and a(15)-a(16) from Donovan Johnson, Feb 28 2012
a(17) from Giovanni Resta, Sep 09 2019
Comments