OFFSET
0,11
FORMULA
MATHEMATICA
Table[Total[Flatten[Select[IntegerPartitions[n, {5}], AllTrue[#, PrimeQ]&]]], {n, 0, 60}] (* Harvey P. Dale, Apr 18 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 28 2019
STATUS
approved