|
%I #4 Oct 01 2013 17:57:55
%S 17,13,17,13,17,41,31,53,53,17,71,13,13,23,41,107,17,41,71,17,13,23,
%T 23,53,13,83,47,17,31,23,47,47,11,31,31,41,41,41,23,41,13,31,23,23,23,
%U 17,13,13,13
%N Fifth occurrence where (p-q)/(q-5), p and q are primes.
%o (PARI) \ r is the occurrence desired 1=first,2=second etc. \d is the amount we take from q diff2sqp2(n,r,d) = { forprime(q=d+1,n, c=0; forprime(p=q+1,n, y=(p-q)/(q-d); if(y==floor(y), if(isprime(y),c++; if(c==r, print1(y",");break)) ) ) ) }
%K easy,nonn
%O 7,1
%A _Cino Hilliard_, Dec 28 2003
|
