The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A216048 Consider the unordered Goldbach partitions of the even numbers m. Then a(n) is the least m which contains prime(n) such partitions composed of odd primes. 1
 10, 22, 48, 78, 144, 168, 288, 210, 474, 480, 570, 714, 630, 930, 924, 1302, 1386, 1380, 1500, 1590, 1470, 2160, 1680, 2838, 2100, 2772, 3498, 2640, 2760, 3060, 4452, 4284, 4170, 4110, 3780, 4650, 5874, 3990, 4950, 5550, 8802, 8706, 5850, 6480, 7728, 7812 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS A002375(a(n)/2) = p. LINKS J. Stauduhar, Table of n, a(n) for n = 1..100 EXAMPLE With n = 1:  prime(1) = 2, so we want the least m that has 2 such partitions.  For m = 6, 6 has one such partition, {3+3}, but 1 is not a prime number.  For m = 8, 8 has one such partition, {3+5}, but 1 is not a prime number.  For m = 10, 10 has two such partitions, {3+7, 5+5}, so a(1) = 10. a(3) = 48: With n = 3, prime(3) = 5 and 48 = {5+43, 7+41, 11+37, 17+31, 19+29}. MATHEMATICA nn = 10^4; ps = Boole[PrimeQ[Range[1, 2*nn, 2]]]; lst = Table[Sum[ps[[i]] ps[[n - i + 1]], {i, Ceiling[n/2]}], {n,    nn}]; t = {}; p = 0; While[p = NextPrime[p]; pos = Position[lst, p, 1, 1]; pos != {}, AppendTo[t, 2*pos[[1, 1]]]]; t (* Modified T. D. Noe's code from A216047 *) (* J. Stauduhar, Sep 01 2012 *) CROSSREFS Cf. A002375 Sequence in context: A242234 A104867 A179877 * A079861 A014008 A219744 Adjacent sequences:  A216045 A216046 A216047 * A216049 A216050 A216051 KEYWORD nonn AUTHOR J. Stauduhar, Aug 31 2012 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.

Last modified June 13 04:23 EDT 2021. Contains 344980 sequences. (Running on oeis4.)