OFFSET
1,1
COMMENTS
LINKS
Bill Hannaford, Table of n, a(n) for n = 1..420 (first 244 terms from T. D. Noe)
EXAMPLE
a(1) = 6 = 3 + 3.
a(2) = 10 because 10 is the smallest number that can be written in two ways: 10 = 3 + 7 = 5 + 5.
MATHEMATICA
kmax = 40000;
ip[k_] := IntegerPartitions[k, {2}, Select[Range[3, k-1], PrimeQ]];
seq = Module[{k, lg, record = 0, n = 0}, Reap[For[k = 6, k <= kmax, k = k+2, lg = Length[ip[k]]; If[lg > record, record = lg; n = n+1; Print["a(", n, ") = ", k]; Sow[k]]]][[2, 1]]] (* Jean-François Alcover, Jun 04 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Apr 15 2003
STATUS
approved