OFFSET
1,4
COMMENTS
a(n) >= 1.
LINKS
FORMULA
EXAMPLE
a(2) = 1; A335437(2) = 16 has exactly one partition into two distinct parts (12,4), such that 16 | 12*4 = 48. Therefore, a(2) = 1.
MAPLE
f:= proc(n) local F, beta, t;
F:= ifactors(n)[2];
beta:= mul(t[1]^floor(t[2]/2), t=F);
if beta <= 2 then NULL else floor((beta-1)/2) fi
end proc:
map(f, [$1..500]); # Robert Israel, Dec 23 2024
MATHEMATICA
Table[If[Sum[(1 - Ceiling[(i*(n - i))/n] + Floor[(i*(n - i))/n]), {i, Floor[(n - 1)/2]}] > 0, Sum[(1 - Ceiling[(i*(n - i))/n] + Floor[(i*(n - i))/n]), {i, Floor[(n - 1)/2]}], {}], {n, 400}] // Flatten
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 10 2020
STATUS
approved