OFFSET
0,11
FORMULA
MATHEMATICA
Table[Total[Select[IntegerPartitions[n, {5}], AllTrue[#, PrimeQ]&][[All, 3]]], {n, 0, 70}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 28 2019
STATUS
approved