OFFSET
24,5
MAPLE
b:= proc(n, i, t) option remember; `if`(n=0,
`if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
`if`(numtheory[issqrfree](i), b(n-i, min(n-i, i-1), t-1), 0)))
end:
a:= n-> b(n$2, 6):
seq(a(n), n=24..84); # Alois P. Heinz, Feb 04 2021
MATHEMATICA
Table[Length[Select[IntegerPartitions[n, {6}], Length[Union[#]]==6&&AllTrue[ #, SquareFreeQ]&]], {n, 24, 90}] (* Harvey P. Dale, Jan 16 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 04 2021
STATUS
approved