OFFSET
0,10
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..10000
EXAMPLE
The a(n) partitions for selected n (A..H = 10..17):
n=9: n=21: n=27: n=33:
---------------------------------------------------------------------------
51111 B1111111111 E1111111111111 H1111111111111111
321111 72111111111111 921111111111111111 B211111111111111111111
531111111111111 54111111111111111111 831111111111111111111111
4221111111111111 5511111111111111111111111
333111111111111111111111111
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Times@@#==Length[#]&]], {n, 0, 30}]
PROG
(PARI) a(r, m=r, p=1, k=0) = {(p==k+r) + sum(m=2, min(m, (k+r)\p), self()(r-m, min(m, r-m), p*m, k+1))} \\ Andrew Howroyd, Jan 02 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 19 2022
EXTENSIONS
Terms a(61) and beyond from Andrew Howroyd, Jan 02 2023
STATUS
approved