OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1500
FORMULA
EXAMPLE
The 52nd highly abundant number is 1800, add one to get 1801 which is prime.
MATHEMATICA
seq = {}; smax = 0; Do[s = DivisorSigma[1, n]; If[s > smax, smax = s; If[PrimeQ[n + 1], AppendTo[seq, n + 1]]], {n, 1, 10^4}]; seq (* Amiram Eldar, Jun 07 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jonathan Vos Post, Jan 29 2011
STATUS
approved