A173555 Primes p such that 5+38*p^2 is also prime.

2, 3, 7, 11, 13, 17, 19, 23, 29, 31, 37, 53, 59, 61, 71, 79, 83, 137, 139, 149, 151, 157, 163, 167, 181, 191, 193, 199, 211, 223, 227, 229, 239, 269, 281, 283, 307, 311, 313, 317, 347, 353, 359, 367, 379, 383, 389, 401, 419, 491, 509, 521, 523, 541, 557

Offset

1,1

Links

Bruno Berselli, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[200]], PrimeQ[5+38#^2]&] (* Harvey P. Dale, Jul 24 2011 *)

Prog

(Magma) [p: p in PrimesUpTo(1000) | IsPrime(5+38*p^2)]; // Vincenzo Librandi, Sep 13 2015
(PARI) lista(nn) = forprime(p=2, nn, if (isprime(5+38*p^2), print1(p, ", "))); \\ Michel Marcus, Sep 13 2015

Crossrefs

Subsequence of A173552.

Cf. A173553, A173554.

Sequence in context: A038613 A075235 A020634 * A086339 A333364 A332787

Adjacent sequences: A173552 A173553 A173554 * A173556 A173557 A173558

Keyword

nonn,easy

Author

Vincenzo Librandi, Feb 21 2010

Extensions

Edited, corrected and extended by Alonso del Arte and N. J. A. Sloane, Jun 18 2010

Status

approved