OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(p -> isprime(6*p+13), [seq(ithprime(i), i=1..1000)]); # Robert Israel, Oct 22 2024
MATHEMATICA
Select[Prime[Range[200]], PrimeQ[6#+13]&] (* Harvey P. Dale, Sep 29 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 Harvey P. Dale, Sep 29 2014
Offset corrected by Robert Israel, Oct 22 2024
STATUS
approved