set:=cant[4];
Length[set]

32
set7:=cant[7]

Clear[set7];

set7:=cant[7];

Length[set7]

c[u_,res_]:=
Module[{res1=res},
{For[k=1,k<17,k++, For[kk=1,kk<17,kk++, res1=res1+N[2^(-2*5)*Sinc[(-N[set[[k]]]+N[set[[kk]]])*u]]]],res1}];

c[0,0]

DiscretePlot[c[k/100,0],{k,0,100}]

Clear[c,k,kk,cc,set,ct]

cc[u_]:=c[u,0];

DiscretePlot[cc[k/100],{k,0,100}]

cc[0]

ct[u_]:=c[u,0][[2]];

ct[1/10]

DiscretePlot[ct[10+k],{k,1,10000}]

DiscretePlot[ct[10+10*k],{k,1,10000}]

DiscretePlot[ct[10+k/100],{k,1,10000}]

N[3^{-5}]

1/10000

10+1/10000

DiscretePlot[ct[N[10+k/10]],{k,1,10000}]

kk

DiscretePlot[ct[N[10+k/10]]*(N[10+k/10])^(N[N[Log[2]]/N[Log[3]]]),{k,1,10000}]

N[N[Log[2]]/N[Log[3]]]

DiscretePlot[ct[N[10000+k/10]],{k,1,10000}]

DiscretePlot[ct[N[10+k]],{k,1,10000}]