A155943 Primes p such that 16*p + 1 is also prime.

7, 37, 61, 97, 151, 163, 181, 193, 271, 313, 331, 337, 397, 421, 487, 523, 547, 571, 643, 691, 727, 757, 853, 877, 967, 1033, 1087, 1093, 1231, 1237, 1297, 1303, 1423, 1471, 1567, 1657, 1747, 1777, 1801, 1831, 1867, 1987, 2083, 2113, 2221, 2251, 2281, 2437

Offset

1,1

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(2500)| IsPrime(16*p + 1)]; // Vincenzo Librandi, Oct 30 2012

Crossrefs

Cf. A094407, A155942, A155941.

Sequence in context: A127313 A217561 A003521 * A078626 A093389 A093342

Adjacent sequences: A155940 A155941 A155942 * A155944 A155945 A155946

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 31 2009

Status

approved