OFFSET
1,1
LINKS
FORMULA
EXAMPLE
The least prime > sigma(6) = 12 is 13, so a(6) = 13.
The least prime > sigma(7) = 8 is 11, so a(7) = 11.
MATHEMATICA
p[n_] := Module[{r, i}, r = 2; i = 1; While[r <= n, i = i + 1; r = Prime[i]]; r]; Table[p[DivisorSigma[1, n]], {n, 1, 40}]
PROG
(PARI) A074495(n) = nextprime(1+sigma(n)); \\ Antti Karttunen, Nov 16 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Sep 26 2002
EXTENSIONS
More terms from Antti Karttunen, Nov 16 2017
STATUS
approved