A181562 Primes of the form highly abundant number - 1.
2, 3, 5, 7, 11, 17, 19, 23, 29, 41, 47, 59, 71, 83, 89, 107, 167, 179, 239, 359, 419, 479, 503, 599, 659, 719, 839, 1259, 1439, 1559, 1619, 1979, 2099, 2339, 2399, 2879, 3023, 3119, 3359, 3779, 4679, 5039, 5879, 6299, 6719, 7559, 7919, 8819, 9239, 10079, 12239, 13859, 21839, 22679, 35279
Offset: 1
Examples
The 55th highly abundant number is 2100; subtract one to get 2099, which is prime.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1588
Programs
-
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 *)
Comments