ceof1:={};

For[k=1,  k<10, k++, AppendTo[ceof1, Sin[N[Pi]/2*(-1+(2*I*Pi*k+N[Log[2]])/N[Log[3]])]*Gamma[(2*I*Pi*k+N[Log[2]])/N[Log[3]]-1]]];

Sin[N[Pi]/2*(-1+(2*I*Pi*100+N[Log[2]])/N[Log[3]])]*Gamma[(2*I*Pi*100+N[Log[2]])/N[Log[3]]-1]

d:=N[Log[2]]/N[Log[3]];

d

Clear[ceof1]

ceof1[[1]]

ceof1[1]

ceof2

For[k=1,  k<10, k++, AppendTo[ceof3, {3}]];

ceof3[[1]]

coef3[[1]]

For[i=1;t=x,i^2<10,i++,t=t^2+i;Print[t]]

For[i=0,i<4,i++,Print[i]]

ceof1

DiscretePlot[ceof1[k],{k,1,10}]

g[t_]:=Sin[N[Pi]/2*(-1+(2*I*Pi*t+N[Log[2]])/N[Log[3]])]*Gamma[(2*I*Pi*t+N[Log[2]])/N[Log[3]]-1];

g[100]

DiscretePlot[h[k],j[k],{k,1,1000}]

DiscretePlot[{h[k],j[k]},{k,1,1000}]

h[t_]:=Re[g[t]];

h[100]

j[t_]:=t^(d-3/2);

j[1]