A064407 Even numbers not the sum of a pair of the lesser of the twin primes.

2, 4, 12, 18, 24, 26, 30, 36, 38, 42, 48, 50, 54, 56, 60, 66, 68, 72, 78, 80, 84, 86, 90, 92, 94, 96, 98, 102, 108, 114, 116, 120, 122, 126, 128, 132, 134, 138, 144, 146, 150, 156, 158, 162, 164, 168, 170, 174, 176, 180, 186, 188, 192, 198

Offset

1,1

Links

Table of n, a(n) for n=1..54.

Example

The lesser of the twin primes < 200 are 3, 5, 11, 17, 29, 41, 59, 71, 101, 107, 137, 149, 179, 191, 197. 24 is in the above sequence because no combination of any two numbers from the set just enumerated can be summed to make 24.

Mathematica

p = Select[ Range[ 200 ], PrimeQ[ # ] && PrimeQ[ # + 2 ] & ]; Complement[ Table[ n, {n, 2, 200, 2} ], Union[ Flatten[ Table[ p[ [ i ] ] + p[ [ j ] ], {i, 1, Length[ p ] }, {j, 1, i} ] ] ] ]

Crossrefs

Sequence in context: A337837 A064361 A303403 * A309519 A198392 A052289

Adjacent sequences: A064404 A064405 A064406 * A064408 A064409 A064410

Keyword

nonn

Author

Robert G. Wilson v, Sep 29 2001

Status

approved