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

Author

Vincenzo Librandi, Jan 17 2009

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A154624.

Programs

Magma

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

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 *)

Extensions

Extended by Emeric Deutsch, Jan 26 2009