OFFSET
1,6
LINKS
FORMULA
a(n) = Sum_{j=1..floor(n/3)} Sum_{i=j..floor((n-j)/2)} (1 - ceiling(n/(n-i-j)) + floor(n/(n-i-j))).
MATHEMATICA
Array[Sum[Sum[(1 - Ceiling[#/(# - i - j)] + Floor[#/(# - i - j)]), {i, j, Floor[(# - j)/2]} ], {j, Floor[#/3]} ] &, 85] (* Michael De Vlieger, Oct 21 2021 *)
PROG
(PARI) A348537(n) = sum(j=1, (n\3), sum(i=j, ((n-j)\2), (1 - ceil(n/(n-i-j)) + floor(n/(n-i-j))))); \\ Antti Karttunen, Feb 18 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Oct 21 2021
STATUS
approved