OFFSET
0,8
FORMULA
a(n) = [x^n y^2] Product_{k>=1} (1 + y*x^A246655(k)).
EXAMPLE
a(12) = 3 because we have [9, 3], [8, 4] and [7, 5].
MATHEMATICA
Table[Count[IntegerPartitions[n, {2}], _?(And[UnsameQ @@ #, AllTrue[#, PrimePowerQ[#] &]] &)], {n, 0, 95}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 30 2019
STATUS
approved