Table[min(complement[divisors(n^30+1),{1}]) mod 12 ,{n, 2,90,2}]