A089440 14*p+13 and p are primes.

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

Author

Cino Hilliard, Dec 28 2003

Keywords

• easy
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

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 *)

PARI

diff2p(n,a,b) = { forprime(x=3,n, y=(x-a)/b; if(y==floor(y), if(isprime(y), print1(y",")) ) ) }

Extensions

Definition corrected by Vaclav Kotesovec, Sep 29 2014

Offset changed by Harvey P. Dale, Oct 24 2014