login
A089439
6p+13 and p are primes.
2
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
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
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