OFFSET
1,18
LINKS
Wikipedia, Integer Triangle
FORMULA
a(n) = Sum_{k=1..floor(n/3)} Sum_{i=k..floor((n-k)/2)} sign(floor((i+k)/(n-i-k))) * c(i) * c(k) * c(n-i-k), where c(n) = A005171(n).
MATHEMATICA
Table[Sum[Sum[(1 - PrimePi[i] + PrimePi[i - 1]) (1 - PrimePi[k] + PrimePi[k - 1]) (1 - PrimePi[n - i - k] + PrimePi[n - i - k - 1]) Sign[
Floor[(i + k)/(n - i - k + 1)]], {i, k, Floor[(n - k)/2]}], {k, Floor[n/3]}], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, May 17 2019
STATUS
approved