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
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..3000
Crossrefs
Programs
-
Magma
[n: n in [0..1000] | IsPrime(n) and IsPrime(16*n + 15)]; // Vincenzo Librandi, Feb 03 2014
-
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 *)