

A084563


Even numbers having no more than three partitions into two odd primes.


2



2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 38, 40, 44, 52, 56, 62, 68, 98, 128
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

There are no other terms <= 30000. Could it be that no other terms exist?  John W. Layman, Jul 28 2003


LINKS



MATHEMATICA

nn=10^2; ps=Boole[PrimeQ[Range[1, 2*nn, 2]]]; Select[Range[nn], Sum[ps[[i]]ps[[#i+1]], {i, Ceiling[#/2]}]<=3&]*2 (* Jayanta Basu, May 25 2013 *)
p2Q[n_]:=Count[nPrime[Range[2, PrimePi[n/2]]], _?PrimeQ]<4; Select[ 2*Range[70], p2Q] (* Harvey P. Dale, Apr 17 2018 *)


CROSSREFS



KEYWORD

nonn,more


AUTHOR



STATUS

approved



