OFFSET
1,1
COMMENTS
Terms are in order of increasing p.
Terms that occur more than once include 269, 1489, 2903, 3271, 5099, 7159.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
A339862(3) = 11 so a(3) = 11 + sigma(11-1) = 29.
MAPLE
select(isprime, map(t -> t + numtheory:-sigma(t-1), [seq(ithprime(i), i=1..200)]));
MATHEMATICA
Select[#+DivisorSigma[1, #-1]&/@Prime[Range[200]], PrimeQ] (* Harvey P. Dale, Jan 31 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Dec 19 2020
EXTENSIONS
Definition clarified by Harvey P. Dale, Jan 31 2021
STATUS
approved