function out = findKEntryCols(data,k)

[numRows numCols] = size(data);
out = [];

for j = 1:numCols
    count = 0;
    for i = 1:numRows
        if data(i,j) > 0
            count = count + 1;
        end
    end
    if count <= k
        out = [out;j];
    end
end