OFFSET
0,5
COMMENTS
The positions of zeros appear to be A048278.
EXAMPLE
The a(4) = 2 through a(16) = 7 integer partitions (G = 16):
4 33 8 9 55 66 94 77 555 G
22 222 44 333 3322 444 5522 33333 88
2222 22222 3333 332222 333222 664
222222 2222222 4444
5533
333322
22222222
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And[GCD@@FactorInteger[Times@@#][[All, 2]]>1, SameQ@@PrimeOmega/@#]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 10 2018
STATUS
approved