OFFSET
1,1
COMMENTS
A002372(a(n)/2) = p.
LINKS
J. Stauduhar and Donovan Johnson, Table of n, a(n) for n = 1..1000 (first 100 terms from J. Stauduhar)
EXAMPLE
With n = 1: prime(1) = 2, so we want the least m that has 2 such partitions. For m = 4, 4 = {2+2}, but 2 is not an odd prime number. For m = 6, 6 has one such partition, {3+3}, but 1 is not a prime number. For m = 8, 8 has two such partitions, {3+5, 5+3}, so a(1) = 8.
a(3) = 22: With n = 3, prime(3) = 5 and 22 = {3+19, 5+17, 11+11, 17+5, 19+3}.
MATHEMATICA
nn = 10^4; ps = Boole[PrimeQ[Range[1, 2*nn, 2]]]; lst = Table[Sum[ps[[i]] ps[[n - i + 1]], {i, n}], {n, nn}]; t = {}; p = 0; While[p = NextPrime[p]; pos = Position[lst, p, 1, 1]; pos != {}, AppendTo[t, 2*pos[[1, 1]]]]; t (* T. D. Noe, Aug 31 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. Stauduhar, Aug 30 2012
STATUS
approved