A109440 Even numbers k such that exactly half of the primes p with p <= k/2 give k-p also a prime.
2, 6, 8, 14, 16, 18, 20, 26, 30, 42, 108, 132, 234, 264, 288, 354, 504, 1920, 2010, 5040
Offset: 1
Examples
The number k = 30 is included because the two sets PrimeP={{7,23},{11,19},{13,17}} and CompP={{2,28},{3,27},{5,25}} have the same number of elements.
Programs
-
PARI
d(n)={my(s=0); forprime(p=2, n, s+=if(isprime(2*n-p), 1, -1)); s} { for(n=1, 10^4/2, if(d(n)==0, print1(2*n, ", "))) } \\ Andrew Howroyd, Jan 02 2020
Extensions
Name edited and a(13)-a(20) from Andrew Howroyd, Jan 02 2020
Comments