OFFSET
0,5
EXAMPLE
The a(4) = 2 through a(10) = 18 partitions:
(4) (41) (33) (331) (8) (9) (55)
(22) (221) (42) (421) (44) (81) (82)
(222) (2221) (422) (333) (91)
(411) (4111) (2222) (441) (433)
(2211) (22111) (3311) (4221) (442)
(4211) (22221) (811)
(22211) (33111) (3322)
(41111) (42111) (3331)
(221111) (222111) (4222)
(411111) (4411)
(2211111) (22222)
(42211)
(222211)
(331111)
(421111)
(2221111)
(4111111)
(22111111)
MATHEMATICA
powQ[n_]:=Min@@Last/@FactorInteger[n]>1;
Table[Length[Select[IntegerPartitions[n], powQ[Times@@#]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 05 2019
STATUS
approved