A106022 Primes p such that 2*p +/- 3 and 8*p +/- 3 are all primes.

5, 7, 13, 127, 2477, 2857, 3163, 3793, 9127, 11173, 11437, 12347, 22567, 23227, 27847, 28573, 28867, 30703, 36793, 49937, 50147, 57373, 67523, 71483, 81353, 82657, 83077, 85303, 92413, 108557, 110083, 123997, 126223, 132383, 141917

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[4000]], PrimeQ[8#+3]&&PrimeQ[8#-3]&&PrimeQ[2#+3]&&PrimeQ[2#-3]&]
Select[Prime[Range[20000]], AllTrue[Flatten[{2#+{3, -3}, 8#+{3, -3}}], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 12 2015 *)

Prog

(Magma) [p: p in PrimesUpTo(1000000)| IsPrime(2*p+3) and IsPrime(2*p-3)and IsPrime(8*p-3) and IsPrime(8*p+3)] // Vincenzo Librandi, Nov 13 2010

Crossrefs

Sequence in context: A356847 A342506 A158892 * A279795 A050085 A314331

Adjacent sequences: A106019 A106020 A106021 * A106023 A106024 A106025

Keyword

nonn

Author

Zak Seidov, May 05 2005

Status

approved