OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
q=13; lst={}; Do[p=Prime[n]; If[PrimeQ[(q+1)*p+q], AppendTo[lst, p]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2009 *)
Select[Prime[Range[250]], PrimeQ[14#+13]&] (* Harvey P. Dale, Oct 24 2014 *)
PROG
(PARI) diff2p(n, a, b) = { forprime(x=3, n, y=(x-a)/b; if(y==floor(y), if(isprime(y), print1(y", ")) ) ) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 28 2003
EXTENSIONS
Definition corrected by Vaclav Kotesovec, Sep 29 2014
Offset changed by Harvey P. Dale, Oct 24 2014
STATUS
approved