f[n_，b_]：=块[{k=10^（n+1），p=置换[Join[表[b，{i，1，n}]，{x}]]，c=补码[j，{j，0，9}]，}b}]，q={}}，Do[q=Append[q，Replace[p，x->c[i]]，2]，{i、1，9}]；r=最小值[Select[FromDigits/@Flatten[q，1]，PrimeQ[#]&]]；如果[r？无穷大，r，p=置换[Join[表[b，{i，1，n}]，{x，y}]]；q={}；做[q=Append[q，Replace[p，{x->c[[i]]，y->c[[j]]}，2]]，{i，1，9}，{j，1，9}]；Min[选择[FromDigits/@Flatten[q，1]，PrimeQ[#]&]]]；表[f[n，8]，{n，1，18}]
