%I #4 Oct 12 2019 11:27:31
%S 1,1,2,2,3,2,3,2,4,3,3,2,5,2,3,3,11,2,9,2,9,4,3,2,35,4,3,9,11,2,25,2,
%T 44,5,3,4,107,2,3,5,67,2,44,2,13,23,3,2,466,5,28,5,17,2,170,6,104,5,3,
%U 2,1039,2,3,30,311,6,70
%N Number of partitions of n in which the product of parts is a power of n.
%t Join[{1,1},Table[Count[Times@@@IntegerPartitions[n],_?(IntegerQ[ Log[ n,#]]&)],{n,2,70}]] (* _Harvey P. Dale_, Oct 12 2019 *)
%Y Cf. A001055, A000041.
%K easy,nonn
%O 0,3
%A _Naohiro Nomoto_, Jan 29 2002
|