table[factor[af(n)],{n,1,20}]