OFFSET
0,15
FORMULA
MATHEMATICA
Table[Total[Flatten[Select[IntegerPartitions[n, {7}], AllTrue[#, PrimeQ]&]]], {n, 0, 60}] (* Harvey P. Dale, Nov 28 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jul 04 2019
STATUS
approved