A157975 Primes p such that 16*p + 15 is also prime.

2, 7, 11, 13, 23, 29, 37, 53, 61, 67, 71, 79, 89, 97, 103, 109, 113, 131, 137, 139, 149, 167, 179, 197, 211, 223, 257, 277, 293, 313, 317, 337, 379, 383, 397, 419, 431, 439, 443, 467, 571, 601, 617, 631, 641, 643, 653, 659, 677, 691, 719, 733, 739, 743, 809

Offset

1,1

Links

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

Mathematica

q=15; lst={}; Do[p=Prime[n]; If[PrimeQ[(q+1)*p+q], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[1000]], PrimeQ[16 # + 15]&] (* Vincenzo Librandi, Feb 03 2014 *)

Prog

(Magma) [n: n in [0..1000] | IsPrime(n) and IsPrime(16*n + 15)]; // Vincenzo Librandi, Feb 03 2014

Crossrefs

Cf. A136082, A136083, A023213, A023221, A023235, A023240, A157974, A136083, A136084, A089440, A136085

Sequence in context: A038892 A019346 A045369 * A339862 A045370 A117048

Adjacent sequences: A157972 A157973 A157974 * A157976 A157977 A157978

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Status

approved