A164567 Primes p such that 5*p-6 and 5*p+6 are prime numbers.

5, 7, 13, 19, 29, 37, 41, 47, 79, 83, 97, 103, 149, 163, 211, 257, 293, 313, 359, 379, 401, 421, 449, 509, 523, 541, 547, 601, 643, 653, 673, 691, 701, 733, 821, 853, 883, 911, 929, 937, 1009, 1129, 1171, 1217, 1367, 1381, 1423, 1511, 1567, 1619, 1637, 1787

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Aug 16 2009

Keywords

• nonn

Comments

Primes of the form A087681(k)/5, any k [R. J. Mathar, Sep 17 2009]

Crossrefs

Cf. A106015, A124098, A125272, A127430, A164566

Programs

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[5*p-6]&&PrimeQ[5*p+6],AppendTo[lst,p]], {n,6!}];lst
Select[Prime[Range[300]],AllTrue[5#+{6,-6},PrimeQ]&] (* Harvey P. Dale, Jun 09 2022 *)