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

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

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

Offset corrected by Robert Israel, Oct 22 2024

Status

approved