cp's OEIS Frontend

A063714 Values of r occurring in A063713.

%I A063714 #13 Feb 14 2018 06:12:13
%S A063714 3,3,5,3,3,5,3,19,5,3,7,29,3,5,3,5,3,43,5,3,7,3,7,3,5,3,11,3,5,5,3,7,
%T A063714 89,7,3,5,3,3,5,3,13,113,7,13,127,5,3,11,137,139,5,13,3,7,3,5,5,3,7,3,
%U A063714 13,5,19,3,3,31,197,199,7,13,17,11,3,5,3,229,5,3,11,5,11,3,19,3,7,3,7
%N A063714 Values of r occurring in A063713.
%C A063714 This is not a mere union of A002373 and A020483 because of the minimality property of these sequences.
%H A063714 Robert Israel, <a href="/A063714/b063714.txt">Table of n, a(n) for n = 1..10000</a>
%p A063714 f:= proc(n) local k;
%p A063714 k:= 2;
%p A063714   while k < 2*n do
%p A063714    k:= nextprime(k);
%p A063714     if isprime(2*n+k) and isprime(2*n-k) then return k fi
%p A063714   od;
%p A063714   NULL
%p A063714 end proc:
%p A063714 map(f, [$1..400]); # _Robert Israel_, Oct 09 2017
%t A063714 f[n_] := {AnyTrue[Prime[Range[PrimePi[2n-2]]], (r = #; PrimeQ[2n+r] && PrimeQ[2n-r])&], r}; Select[f /@ Range[200], #[[1]] =!= False &][[All, 2]] (* _Jean-François Alcover_, Feb 14 2018 *)
%Y A063714 Cf. A063713, A002373, A020483.
%K A063714 nonn,look
%O A063714 1,1
%A A063714 _Reinhard Zumkeller_, Aug 10 2001