Hi, I use Mathematica to define a function sg[x,k] to calculate the Svein-Graham sum and plot some figures for ##x \in [1,2]## with ##k## varies from 1 to 5.
sg[x_, k_] := Module[{f},
f[y_] := #^y &;
(FoldList[f[x], x, Range[k - 1]] // Total) + 1]
Plot[sg[x, #], {x, 1, 2}] & /@ Range[1, 5]