OFFSET
0,11
FORMULA
MATHEMATICA
Table[Total[Select[IntegerPartitions[n, {5}], AllTrue[#, PrimeQ]&][[All, 2]]], {n, 0, 60}] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 15 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 28 2019
STATUS
approved