OFFSET
1,1
COMMENTS
a(22) > 10^12. - Donovan Johnson, Feb 28 2012
MATHEMATICA
Cases[Range[100000],
x_ /; Divisible[DivisorSigma[1, x], EulerPhi[x] + 9] == True] (* David Nacin, Feb 28 2012 *)
Select[Range[1000000], Divisible[DivisorSigma[1, #], EulerPhi[#]+9]&] (* Harvey P. Dale, May 24 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(9)-a(21) from Donovan Johnson, Feb 28 2012
STATUS
approved