OFFSET
1,1
COMMENTS
These primes are neither sorted nor uniqued. They are listed in the order found in A258774.
LINKS
Robert Price, Table of n, a(n) for n = 1..2122
MATHEMATICA
Select[Table[1 + DivisorSigma[1, n] + DivisorSigma[1, n]^2, {n, 1, 10000}], PrimeQ]
Select[Table[Cyclotomic[3, DivisorSigma[1, n]], {n, 1, 10000}], PrimeQ]
PROG
(Magma) [a: n in [1..300] | IsPrime(a) where a is 1+SumOfDivisors(n)+ SumOfDivisors(n)^2]; // Vincenzo Librandi, Jun 10 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Jun 09 2015
STATUS
approved