OFFSET
1,1
COMMENTS
Apparently there are no further terms beyond 398. - R. J. Mathar, Oct 01 2021
FORMULA
{j: A117929(j) = 6}. - R. J. Mathar, Oct 01 2021
EXAMPLE
66 is a term as 66 = 37 + 29 = 43 + 23 = 47 + 17 = 53 + 13 = 59 + 7 = 61 + 5 are only the six ways to express 66 as a sum of two distinct primes.
MATHEMATICA
tdpQ[n_]:=Count[IntegerPartitions[n, {2}], _?(AllTrue[#, PrimeQ]&&Length[Union[#]]==2&)]==6; Select[Range[400], tdpQ] (* Harvey P. Dale, Aug 17 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Mar 29 2003
STATUS
approved
