login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A053185
Primes of the form p^2 + p - 1 when p is prime.
5
5, 11, 29, 131, 181, 379, 991, 1721, 2861, 3539, 6971, 8009, 10301, 10711, 17291, 22349, 26731, 32941, 36671, 37441, 39799, 54521, 58321, 69431, 79241, 109891, 122149, 139501, 161201, 175979, 186191, 187921, 202049, 212981, 214831, 249499
OFFSET
1,1
COMMENTS
Previous name: Primes produced in A053184.
LINKS
MATHEMATICA
Select[#^2 + # - 1 &/@Prime[Range[200]], PrimeQ] (* Vincenzo Librandi, Aug 12 2017 *)
PROG
(PARI) isA053185(n)={local(r); r=0; for(i=floor(sqrt(n+1)), ceil(sqrt(n)-1), if(isprime(i) && n==i^2+i-1 && isprime(n), r=1)); r} \\ Michael B. Porter, May 10 2010
(PARI) lista(nn) = forprime(p=2, nn, if (isprime(q=p^2+p-1), print1(q, ", "))); \\ Michel Marcus, Aug 12 2017
(Magma) [p: p in PrimesUpTo(600) | IsPrime(p) where p is p^2+p-1]; // Vincenzo Librandi, Aug 12 2017
CROSSREFS
Cf. A053184.
Sequence in context: A100965 A001632 A234511 * A358900 A337394 A090119
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Mar 01 2000
EXTENSIONS
New name from Michel Marcus, Aug 12 2017
STATUS
approved