login
This site is supported by donations to The OEIS Foundation.

 

Logo

The submissions stack has been unacceptably high for several months now. Please voluntarily restrict your submissions and please help with the editing. (We don't want to have to impose further limits.)

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A109885 Let n be an even integer > 2. Let PrimeP be the number of prime partition pairs {p,q} corresponding to n such that n = p + q, p and q are prime and p <= q. Let CompP be the number of composite partition pairs {r,s} corresponding to n such that n = r + s, r is prime, s is composite and r <= s. For what n's is 2*PrimeP > CompP? 0
4, 10, 22, 24, 34, 36, 48, 54, 60, 66, 72, 78, 84, 90, 102, 114, 120, 126, 144, 150, 156, 168, 180, 186, 198, 204, 210, 240, 246, 252, 270, 294, 300, 324, 330, 360, 378, 390, 420, 450, 462, 480, 510, 540, 546, 570, 600, 630, 660, 690, 714, 720, 750, 780, 840 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Except for a(1), a(2) a(3) & a(5), a(n)==0 (mod 6). - Robert G. Wilson v

LINKS

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

MATHEMATICA

fQ[n_] := Block[{t = n - Prime@Range@PrimePi[n/2]}, 2Length[Select[t, PrimeQ]] > Length[t]]; Select[ 2Range[2, 434], fQ[ # ] &] (* Robert G. Wilson v, Nov 03 2005 *)

CROSSREFS

Sequence in context: A053643 A111927 A227803 * A054211 A112770 A217514

Adjacent sequences:  A109882 A109883 A109884 * A109886 A109887 A109888

KEYWORD

nonn

AUTHOR

Gilmar Rodriguez Pierluissi (gilmarlily(AT)yahoo.com), Aug 31 2005

EXTENSIONS

Edited by Robert G. Wilson v, Nov 03 2005

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified August 29 05:24 EDT 2015. Contains 261185 sequences.