login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064408 Even numbers not the sum of a pair of the greater of the twin primes. 1
2, 4, 6, 8, 16, 22, 28, 30, 34, 40, 42, 46, 52, 54, 58, 60, 64, 70, 72, 76, 82, 84, 88, 90, 94, 96, 98, 100, 102, 106, 112, 118, 120, 124, 126, 130, 132, 136, 138, 142, 148, 150, 154, 160, 162, 166, 168, 172, 174, 178, 180, 184, 190, 192, 196 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

EXAMPLE

The greater of the twin primes < 200 are 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, 193, 199. 22 is in the above sequence because no combination of any two numbers from the set just enumerated can be summed to make 22.

MAPLE

N:= 300: # to get all terms <= N

T:= select(t -> isprime(t) and isprime(t-2), {5, seq(6*i+1, i=1..N/6)}):

A:= {seq(i, i=2..N, 2)} minus {seq(seq(T[i]+T[j], j=1..i), i=1..nops(T))}:

sort(convert(A, list)); # Robert Israel, Mar 14 2018

MATHEMATICA

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

upto=200; Module[{gtp=Transpose[Select[Partition[Prime[Range[PrimePi[ upto]]], 2, 1], #[[2]]-#[[1]]==2&]][[2]]}, Complement[Range[2, upto, 2], Total/@ Tuples[gtp, 2]]] (* Harvey P. Dale, Jan 17 2015 *)

CROSSREFS

Sequence in context: A093109 A070034 A329798 * A316225 A100685 A296993

Adjacent sequences:  A064405 A064406 A064407 * A064409 A064410 A064411

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Sep 29 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 24 04:36 EST 2020. Contains 332197 sequences. (Running on oeis4.)