|
%I #13 Oct 24 2014 17:58:27
%S 2,5,11,17,29,41,59,89,101,107,131,137,149,167,191,227,239,251,269,
%T 281,317,347,359,419,431,449,467,479,521,587,659,677,719,761,797,857,
%U 881,941,977,1031,1049,1061,1091,1151,1181,1187,1277,1289,1307,1409,1427
%N 14*p+13 and p are primes.
%H Harvey P. Dale, <a href="/A089440/b089440.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%t Select[Prime[Range[250]],PrimeQ[14#+13]&] (* _Harvey P. Dale_, Oct 24 2014 *)
%o (PARI) diff2p(n,a,b) = { forprime(x=3,n, y=(x-a)/b; if(y==floor(y), if(isprime(y), print1(y",")) ) ) }
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Dec 28 2003
%E Definition corrected by _Vaclav Kotesovec_, Sep 29 2014
%E Offset changed by _Harvey P. Dale_, Oct 24 2014
|
