OFFSET
1,1
COMMENTS
Primes of the form A087681(k)/5, any k [R. J. Mathar, Sep 17 2009]
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 16 2009
STATUS
approved