OFFSET
1,5
FORMULA
a(n) = Sum_{j=1..floor(n/3)} Sum_{i=j..floor((n-j)/2)} sign( c(i*(n-i-j)/j) + c(j*(n-i-j)/i) + c(i*j/(n-i-j)) ), where c(n) = 1 - ceiling(n) + floor(n).
EXAMPLE
a(9) = 7; All of the partitions of 9 (into 3 such parts) satisfy these conditions. They are (1,1,7), (1,2,6), (1,3,5), (1,4,4), (2,2,5), (2,3,4) and (3,3,3).
a(10) = 7; The partitions of 10 into 3 such parts are (1,1,8), (1,2,7), (1,3,6), (1,4,5), (2,2,6), (2,4,4) and (3,3,4).
MATHEMATICA
Block[{c}, c[n_] := 1 - Ceiling[n] + Floor[n]; Array[Sum[Sum[Sign[c[i*(# - i - j)/j] + c[j*(# - i - j)/i] + c[i*j/(# - i - j)]], {i, j, Floor[(# - j)/2]}], {j, Floor[#/3]} ] &, 67]] (* Michael De Vlieger, Oct 21 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Oct 21 2021
STATUS
approved