A158016 Primes p such that 8*p-1 is also prime.

3, 13, 19, 61, 79, 103, 163, 181, 193, 223, 229, 313, 331, 349, 409, 433, 439, 541, 571, 613, 619, 691, 751, 769, 853, 859, 919, 991, 1021, 1033, 1039, 1321, 1381, 1423, 1483, 1543, 1549, 1621, 1699, 1759, 1801, 1861, 1873, 1879, 1951, 1999, 2011, 2029, 2113

Offset: 1

Author

Roger L. Bagula, Mar 11 2009

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A005382 for the type 2p-1, A062737 for 4p-1, A158015 for 6p-1, A158017 for 10p-1.

Programs

Magma

[p: p in PrimesUpTo(2200) | IsPrime(8*p - 1)]; // Vincenzo Librandi, Apr 14 2013

Mathematica

Select[Prime[Range[600]], PrimeQ[(8 # - 1)]&] (* Vincenzo Librandi, Apr 14 2013 *)

Extensions

Edited by the Associate Editors of the OEIS, Apr 22 2009