A089439 6p+13 and p are primes.

3, 5, 11, 19, 23, 31, 43, 53, 59, 61, 71, 79, 89, 101, 103, 113, 149, 151, 163, 173, 179, 193, 211, 239, 241, 269, 281, 311, 331, 353, 373, 379, 383, 389, 409, 421, 439, 443, 449, 463, 479, 509, 541, 563, 593, 599, 613, 619, 653, 659, 673, 683, 691, 701, 719

Offset

2,1

Links

Table of n, a(n) for n=2..56.

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

Sequence in context: A045957 A364962 A153065 * A122516 A243899 A168161

Adjacent sequences: A089436 A089437 A089438 * A089440 A089441 A089442

Keyword

easy,nonn

Author

Cino Hilliard, Dec 28 2003

Extensions

Definition corrected by Harvey P. Dale, Sep 29 2014

Status

approved