%I A073703
%S A073703 3,5,3,3,7,3,3,3,7,3,5,5,7,3,3,3,13,5,3,7,3,5,7,3,3,31,5,13,5,3,3,7,3,
               3,
%T A073703 13,5,3,5,3,3,31,5,7,3,3,3,11,3,3,3,13,13,5,7,7,31,3,5,3,7,3,7,3,19,5,
               7,
%U A073703 11,3,7,3,3,43,5,5,3,3,19,3,7,3,19,11,19,11,3,43,13,5,7,3,3,13,3
%N A073703 Smallest prime p such that also p+prime(n)*2 is a prime.
%C A073703 If Polignac's conjecture (1849) is correct, the sequence is defined for 
               all n (as is A020483).
%C A073703 Also: least k-prime(n) such that k-prime(n) and k+prime(n) are both primes. 
               - Pierre CAMI (pierrecami(AT)tele2.fr), Aug 27 2004
%e A073703 n=5: prime(5)=11; 2+11*2=24, 3+11*2=25 and 5+11*2=27 are not prime, but 
               7+11*2=29 is prime, therefore a(5)=7.
%t A073703 f[n_] := Block[{k = Prime[n], p = Prime[n]}, While[ !PrimeQ[k - p] || 
               !PrimeQ[k + p], k++ ]; k - p]; Table[ f[n], {n, 95}] (from Robert 
               G. Wilson v Aug 28 2004)
%Y A073703 Cf. A073704, A001747, A000040, A020483.
%Y A073703 Sequence in context: A021287 A124887 A097524 this_sequence A097519 A133773 
               A077934
%Y A073703 Adjacent sequences: A073700 A073701 A073702 this_sequence A073704 A073705 
               A073706
%K A073703 nonn
%O A073703 1,1
%A A073703 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Aug 04 2002
%E A073703 Merged with Pierre CAMI's submission of Aug 2004 - R. J. Mathar Jul 29 
               2008