OFFSET
0,3
EXAMPLE
The a(1) = 1 through a(8) = 5 integer partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (32) (33) (52) (44)
(1111) (11111) (222) (1111111) (53)
(111111) (2222)
(11111111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And[SameQ@@PrimeOmega/@#, SameQ@@Last/@FactorInteger[Times@@#]]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 14 2018
EXTENSIONS
More terms from Alois P. Heinz, Dec 14 2018
STATUS
approved