A155938 Primes p such that 13*p + 8 is also prime.

3, 5, 11, 17, 23, 41, 47, 83, 101, 107, 137, 167, 233, 251, 311, 317, 347, 353, 383, 467, 503, 521, 587, 593, 647, 683, 761, 797, 857, 941, 1013, 1031, 1103, 1181, 1187, 1223, 1301, 1433, 1493, 1571, 1607, 1721, 1847, 1907, 1913, 1931, 1973, 1997, 2081, 2153

Offset: 1

Author

Vincenzo Librandi, Jan 31 2009

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A092178, A155937, A155939.

Programs

Magma

[p: p in PrimesUpTo(2200)| IsPrime(13*p + 8)]; // Vincenzo Librandi, Oct 30 2012

Mathematica

Select[Prime[Range[2500]], PrimeQ[(13*# + 8)]&] (* Vincenzo Librandi, Oct 30 2012 *)