%I #20 Jun 01 2020 14:10:25
%S 0,0,2,0,2,0,6,4,6,0,2,0,6,4,6,0,2,0,6,4,18,0,10,12,6,8,18,0,2,0,18,8,
%T 6,12,10,0,18,4,6,0,2,0,6,4,30,0,10,24,6,16,18,0,14,24,6,8,30,0,2,0,
%U 18,8,6,12,10,0,30,4,6,0,2,0,30,8,6,12,10,0,18,4,30,0,10,24,6,28,18,0
%N a(n) is the minimal difference between primes p and q whose sum is 2n.
%C Terms are always even numbers because primes present in Goldbach partitions of n > 4 are odd and n = 4 has just one partition (2+2) where the difference is 0. a(n) = 0 iff n is prime. - _Marcin Barylski_, Apr 28 2018
%F a(n) = 2 * A047160(n). - _Alois P. Heinz_, Jun 01 2020
%t a[n_] := For[p=n, True, p--, If[PrimeQ[p]&&PrimeQ[2n-p], Return[2n-2p]]]
%o (PARI) a(n) = {forstep(k=n, 1, -1, if (isprime(k) && isprime(2*n-k), return(2*n-2*k)););} \\ _Michel Marcus_, Jun 01 2020
%Y Cf. A002372, A047160, A065978, A066286, A303603.
%K nonn,easy
%O 2,3
%A _Dean Hickerson_, Dec 12 2001
|