Table[PowerMod[3^(2^k)+1,-1,37],{k,0,20}]