login
A089440
14*p+13 and p are primes.
5
2, 5, 11, 17, 29, 41, 59, 89, 101, 107, 131, 137, 149, 167, 191, 227, 239, 251, 269, 281, 317, 347, 359, 419, 431, 449, 467, 479, 521, 587, 659, 677, 719, 761, 797, 857, 881, 941, 977, 1031, 1049, 1061, 1091, 1151, 1181, 1187, 1277, 1289, 1307, 1409, 1427
OFFSET
1,1
LINKS
MATHEMATICA
q=13; lst={}; Do[p=Prime[n]; If[PrimeQ[(q+1)*p+q], AppendTo[lst, p]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2009 *)
Select[Prime[Range[250]], PrimeQ[14#+13]&] (* Harvey P. Dale, Oct 24 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: A111166 A064337 A076873 * A354789 A228353 A055499
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 28 2003
EXTENSIONS
Definition corrected by Vaclav Kotesovec, Sep 29 2014
Offset changed by Harvey P. Dale, Oct 24 2014
STATUS
approved