Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A089439
6p+13 and p are primes.
1
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
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
STATUS
approved