Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #12 Feb 16 2024 14:44:29
%S 2,4,6,14,20,26,28,32,38,40,44,50,52,56,58,62,68,70,74,80,82,86,88,92,
%T 94,96,98,100,104,110,116,118,122,124,128,130,134,136,140,146,148,152,
%U 158,160,164,166,170,172,176,178,182,188,190,194,200
%N Positive even numbers not of the form A001359(i) + A006512(j) for integers i and j.
%C This is different from A007534, which gives positive even numbers which are not the same of a pair of twin primes. The old definition of the present sequence was misleading. - _N. J. A. Sloane_, Feb 16 2024
%H A.H.M. Smeets, <a href="/A064409/b064409.txt">Table of n, a(n) for n = 1..20177</a>
%e The lesser of the twin primes < 200 are 3, 5, 11, 17, 29, 41, 59, 71, 101, 107, 137, 149, 179, 191, 197 and the greater of the twin primes < 200 are 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, 193, 199. 20 is in the current sequence because no combination of any two numbers from each set just enumerated can be summed to make 20.
%t p = Select[ Range[ 200 ], PrimeQ[ # ] && PrimeQ[ # + 2 ] & ]; q = p + 2; Complement[ Table[ n, {n, 2, 200, 2} ], Union[ Flatten[ Table[ p[ [ i ] ] + q[ [ j ] ], {i, 1, 15}, {j, 1, 15} ] ] ] ]
%Y Cf. A001359, A006512, A007534.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Sep 29 2001