|
%I #20 Nov 14 2018 08:13:20
%S 1,1,2,3,6,8,14,19,33,45,69,94,148,197,289,390,575,762,1086,1439,2040,
%T 2687,3712,4874,6749,8792,11918,15526,20998,27164,36277,46820,62367,
%U 80146,105569,135326,177979,227139,296027,377142,490554,622526,804158
%N Number of partitions of n into sums of products.
%C Number of ways to choose a factorization of each part of an integer partition of n. - _Gus Wiseman_, Sep 05 2018
%C This sequence is obtained from the generalized Euler transform in A266964 by taking f(n) = 1, g(n) = A001055(n). - _Seiichi Manyama_, Nov 14 2018
%H Seiichi Manyama, <a href="/A066815/b066815.txt">Table of n, a(n) for n = 0..10000</a>
%F G.f.: Product_{k>=1} 1/(1-A001055(k)*x^k).
%F a(n) = 1/n*Sum_{k=1..n} a(n-k)*b(k), n > 0, a(0)=1, b(k)=Sum_{d|k} d*(A001055(d))^(k/d).
%e From _Gus Wiseman_, Sep 05 2018: (Start)
%e The a(6) = 14 partitions of 6 into sums of products:
%e 6, 2*3,
%e 5+1, 4+2, 2*2+2, 3+3,
%e 4+1+1, 2*2+1+1, 3+2+1, 2+2+2,
%e 3+1+1+1, 2+2+1+1,
%e 2+1+1+1+1,
%e 1+1+1+1+1+1.
%e (End)
%t facs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@Select[facs[n/d],Min@@#1>=d&],{d,Rest[Divisors[n]]}]];
%t Table[Length[Join@@Table[Tuples[facs/@ptn],{ptn,IntegerPartitions[n]}]],{n,20}] (* _Gus Wiseman_, Sep 05 2018 *)
%Y Cf. A000041, A001055, A066739, A321460.
%Y Cf. A001970, A050336, A063834, A065026, A281113, A284639, A318948, A318949.
%K nonn
%O 0,3
%A _Vladeta Jovovic_, Jan 20 2002
%E Renamed by _T. D. Noe_, May 24 2011
|
