OFFSET
0,11
FORMULA
MATHEMATICA
Table[Sum[Sum[Sum[Sum[(n-i-j-k-l) (PrimePi[l] - PrimePi[l - 1]) (PrimePi[k] - PrimePi[k - 1]) (PrimePi[j] - PrimePi[j - 1]) (PrimePi[i] - PrimePi[i - 1]) (PrimePi[n - i - j - k - l] - PrimePi[n - i - j - k - l - 1]), {i, j, Floor[(n - j - k - l)/2]}], {j, k, Floor[(n - k - l)/3]}], {k, l, Floor[(n - l)/4]}], {l, Floor[n/5]}], {n, 0, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 28 2019
STATUS
approved