OFFSET
1,1
COMMENTS
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..7
EXAMPLE
8191 = sigma(2^(q+1)) for prime q = 11.
MATHEMATICA
Select[DivisorSigma[1, 2^(# + 1)] & /@ Prime@ Range@ 120, PrimeQ] (* Michael De Vlieger, Nov 10 2016 *)
PROG
(Magma) [SumOfDivisors(2^(n+1)): n in [1..1000] | IsPrime(n) and IsPrime(SumOfDivisors(2^(n+1)))]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Nov 09 2016
STATUS
approved