Untitled

my &golf =

    {sub f(\i){my \n=first i%%*,2..^i;n??[n,|f i/n]!!|i}
    $_>.&f>1&&.comb.sum==.&f.comb.sum}


say golf 18;
say golf 22;
say golf 13;
say golf 666;
say golf -265;
say golf 0;
say golf 1;
# say golf 4937775;  # This test-case is too slow for the online evaluator