PROG
(MAGMAMagma) [n: n in[1..1000] | IsPrime(SumOfDivisors(n) - 1)]
(MAGMAMagma) [n: n in[1..1000] | IsPrime(SumOfDivisors(n) - 1)]
proposed
approved
editing
proposed
with(numtheory): A248792:=n->`if`(isprime(sigma(n)-1), n, NULL): seq(A248792(n), n=1..200); # Wesley Ivan Hurt, Jul 09 2015
proposed
editing
editing
proposed
OEIS Wiki, <a href="https://oeis.org/wiki/Cyclotomic Polynomials at x=n, n! and sigma(n)">Cyclotomic Polynomials at x=n, n! and sigma(n)</a>
approved
editing
proposed
approved
editing
proposed
Michael De Vlieger, <a href="/A248792/b248792.txt">Table of n, a(n) for n = 1..10000</a>
proposed
editing
editing
proposed