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
KEYWORD
nonn
AUTHOR
J. Stauduhar, Aug 31 2012
STATUS
approved