OFFSET
1,4
COMMENTS
Allowing 1's gives A057568.
EXAMPLE
The a(n) partitions for n = 6, 10, 12, 15, 22:
(6) (10) (12) (15) (22)
(5,3,2) (6,6) (6,5,4) (11,6,5)
(5,4,3) (7,5,3) (11,7,4)
(6,4,2) (10,3,2) (11,8,3)
(4,3,3,2) (5,4,3,3) (11,9,2)
(5,3,2,2) (5,5,3,2) (11,4,4,3)
(6,2,2,2) (6,5,2,2) (11,5,4,2)
(3,3,2,2,2) (5,3,3,2,2) (11,6,3,2)
(11,7,2,2)
(11,3,3,3,2)
(11,4,3,2,2)
(11,5,2,2,2)
(11,3,2,2,2,2)
MAPLE
b:= proc(n, i, t) option remember; `if`(n=0,
`if`(t=1, 1, 0), `if`(i<2, 0, b(n, i-1, t)+
`if`(i>n, 0, b(n-i, min(i, n-i), t/igcd(i, t)))))
end:
a:= n-> `if`(isprime(n), 1, b(n$3)):
seq(a(n), n=1..70); # Alois P. Heinz, Jan 07 2025
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], FreeQ[#, 1]&&Divisible[Times@@#, n]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 07 2025
STATUS
approved