OFFSET
1,18
FORMULA
a(n) = Sum_{k=1..floor((n-1)/3)} Sum_{i=k+1..floor((n-k-1)/2)} sign(floor((i+k)/(n-i-k+1))) * [gcd(i,k) * gcd(i,n-i-k) * gcd(k,n-i-k) = 1], where [] is the Iverson bracket. - Wesley Ivan Hurt, May 11 2019
MATHEMATICA
Table[Sum[Sum[Floor[1/(GCD[i, k]*GCD[i, n - i - k]*GCD[k, n - i - k])]*Sign[Floor[(i + k)/(n - i - k + 1)]], {i, k + 1, Floor[(n - k - 1)/2]}], {k, Floor[(n - 1)/3]}], {n, 100}] (* Wesley Ivan Hurt, May 11 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved