Voozh

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

(list; graph; refs; listen; history; text; internal format)

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