login
A015798
Numbers k such that phi(k) + 7 | sigma(k).
1
9, 18, 24, 408, 7684, 10848, 14528, 46272, 533776, 774912, 201142272, 1410521344, 3220488192, 4469373184, 6505814272, 27945013504
OFFSET
1,1
COMMENTS
a(17) > 10^12. - Donovan Johnson, Feb 28 2012
MATHEMATICA
Cases[Range[100000],
x_ /; Divisible[DivisorSigma[1, x], EulerPhi[x] + 7] == True] (* David Nacin, Feb 28 2012 *)
CROSSREFS
Sequence in context: A171081 A232056 A109661 * A028494 A167663 A347242
KEYWORD
nonn
EXTENSIONS
Offset corrected and a(9)-a(16) from Donovan Johnson, Feb 28 2012
STATUS
approved