A158015 Primes p such that 6*p-1 is also prime.
2, 3, 5, 7, 17, 19, 23, 29, 43, 47, 53, 59, 67, 103, 107, 109, 113, 127, 137, 157, 163, 197, 199, 227, 229, 239, 269, 283, 313, 317, 347, 359, 373, 379, 383, 389, 397, 439, 443, 449, 457, 463, 467, 523, 569, 577, 593, 599, 613, 617, 647, 653, 709, 733, 743, 773
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(800) | IsPrime(6*p-1)]; // Vincenzo Librandi, Apr 14 2013
-
Mathematica
Select[Prime[Range[200]], PrimeQ[(6 # - 1)]&] (* Vincenzo Librandi, Apr 14 2013 *)
Extensions
Edited by the Associate Editors of the OEIS, Apr 22 2009