An everywhere continuous, nowhere differentiable function

f[x_, n_]  =  Sum[b^j Cos[a^j Pi x], {j, 0, n}]

a  =  4
b =  7/8
Plot[f[x, 20], {x, 0, 2 Pi}, PlotPoints -> 500]