Clear[som,epsi2,k,kk,res]

Clear[som];

res:={};
som:=0;

epsi2[n_,som1_]:=
Module[{som=som1},
{For[k=1,k<17,k++, For[kk=1,kk<17,kk++, som=som+2^(-2*5)*(2-set5[[k]]+set5[[kk]])^(-(N[Log[2]]+2*N[Pi]*I*n)/N[Log[3]])]],som}
];

res=Join[res,{som}];

som

res

gen[m_]:=
Clear[som]
som:=0
epsi2[m]
Join[res,{som}];

gen[2]

res

epsi2[1]

epsi[2,0]

epsi2[1,0]

s

epsi3[n_]:=Re[epsi2[n,0][[2]]];

epsi3[4]

DiscretePlot[epsi3[n],{n,1,1000}]