A154625 Primes p such that 71*p + 34 is also prime.

5, 23, 47, 53, 83, 89, 149, 179, 317, 347, 353, 359, 389, 467, 503, 557, 569, 647, 683, 773, 929, 947, 977, 983, 1019, 1103, 1193, 1217, 1229, 1283, 1307, 1319, 1439, 1733, 1847, 1889, 1907, 2069, 2153, 2243, 2309, 2357, 2393, 2399, 2417, 2657, 2687, 2693

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Maple

a := proc (n) if isprime(n) = true and isprime(71*n+34) = true then n else end if end proc: seq(a(n), n = 1 .. 3000); # Emeric Deutsch, Jan 26 2009

Mathematica

Select[Prime[Range[500]], PrimeQ[71#+34]&] (* Harvey P. Dale, Jun 04 2011 *)

Prog

(Magma) [p: p in PrimesUpTo(2800)| IsPrime(71*p + 34)]; // Vincenzo Librandi, Oct 30 2012

Crossrefs

Cf. A154624.

Sequence in context: A222088 A146467 A053518 * A107011 A031387 A057622

Adjacent sequences: A154622 A154623 A154624 * A154626 A154627 A154628

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 17 2009

Extensions

Extended by Emeric Deutsch, Jan 26 2009

Status

approved