OFFSET
1,1
LINKS
FORMULA
MATHEMATICA
Array[If[PrimeQ@ #, #, NextPrime@ #] &@ DivisorSigma[1, #] &, 68] (* Michael De Vlieger, Nov 16 2017 *)
PROG
(PARI) A067792(n) = nextprime(sigma(n)); \\ Antti Karttunen, Nov 16 2017
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Benoit Cloitre, Feb 07 2002
EXTENSIONS
Definition clarified by Antti Karttunen, Nov 16 2017
STATUS
approved