|
|
A173555
|
|
Primes p such that 5+38*p^2 is also prime.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
|