OFFSET
1,1
MATHEMATICA
abQ[n_] := DivisorSigma[-1, n] > 2; defQ[n_] := DivisorSigma[-1, n] < 2; primQ[n_] := abQ[n] && AllTrue[n/FactorInteger[n][[;; , 1]], defQ]; s = {}; dm = 0; Do[If[(d = DivisorSigma[0, n]) > dm && primQ[n], dm = d; AppendTo[s, n]], {n, 1, 10^6}]; s (* Amiram Eldar, Oct 20 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jun 18 2003
EXTENSIONS
More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Jan 02 2006
a(20)-a(24) from Donovan Johnson, Apr 09 2010
a(25)-a(27) from Donovan Johnson, Oct 21 2012
STATUS
approved