OFFSET
1,5
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n=1..10000
EXAMPLE
a(21)=6 as 21 = 2+19 = 2+2+17 = 3+5+13 = 3+7+11 = 5+5+11 = 7+7+7.
MATHEMATICA
goldbachcount[p1_] := (parts=IntegerPartitions[p1, 3]; count=0; n=1;
While[n<=Length[parts], If[Intersection[Flatten[PrimeQ[parts[[n]]]]][[1]]==True, count++]; n++]; count); Table[goldbachcount[i], {i, 1, 100}] (* Frank M Jackson, Mar 25 2013 *)
Table[Length[Select[IntegerPartitions[n, 3], AllTrue[#, PrimeQ]&]], {n, 90}] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 21 2016 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Reinhard Zumkeller, May 19 2002
STATUS
approved