OFFSET
1,1
COMMENTS
a(24) > 10^12. - Donovan Johnson, Feb 28 2012
MATHEMATICA
Select[Range[100000],
Divisible[DivisorSigma[1, #], EulerPhi[#] + 4] && !
Divisible[#, 3] &] (* David Nacin, Feb 28 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected and a(10)-a(23) from Donovan Johnson, Feb 28 2012
STATUS
approved