cantor:={};

RSolve[{a[n]==r a[n-1]+1,a[1]==1},a[n],n]

RSolve[{cant[n]==AppendTo[N[1/3]cant[n-1],N[2/3]cant[n-1]],cant[1]=={0}},cant[n],n]

test{8}

test

AppendTo[test,{8}]

1/3

N[1/3]

test:={3};

3test

canto[n_]:=If[n==1,{0},[1/3]canto[n-1]];

u[1]:=1;

u[n_]:=u[n-1];

u[12]

v[1]:={}

v[n_]:=AppendTo[2v[n-1],n];

v[3]

Clear[cant]

cant[0]:={0};

cant[n_]:=Join[N[1/3]cant[n-1],N[2/3]+N[1/3]cant[n-1]];

cant[0]

Join[{3},{5}]

set10:=cant[10];

epsi[n_]:=For[k=1,k<513,k++, For[kk=1,kk<513,kk++, res=res+2^(-2*9)*(2-set10[[k]]+set10[[kk]])^(-(N[Log[2]]+2*Pi*I*n)/N[Log[3]])]];

Length[set10]

Clear[k]

res:={9}

set10[[1]]

epsi[1]

set5:=cant[5];

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

Length[set5]

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

epsi2[1]

res

som:=0

som

epsi2[1]

som

epsi2[1][[2]]-som

epsi2[1,1]

epsi2[1][[2]]-som

som

epsi2[1][[2]]

som

k

ii

epsi2[1]

som

epsi2[1]

som