0,8

Table of n, a(n) for n=0..95.

Index entries for sequences related to partitions

a(n) = [x^n y^2] Product_{k>=1} (1 + y*x^A246655(k)).

a(12) = 3 because we have [9, 3], [8, 4] and [7, 5].

Table[Count[IntegerPartitions[n, {2}], _?(And[UnsameQ @@ #, AllTrue[#, PrimePowerQ[#] &]] &)], {n, 0, 95}]

Cf. A000961, A071330, A106244, A117929, A246655, A307726, A307825.

Sequence in context: A082533 A230149 A050373 * A308174 A126237 A243164

Adjacent sequences: A306430 A306431 A306432 * A306434 A306435 A306436

nonn

Ilya Gutkovskiy, Apr 30 2019

approved