In[]:=
Clear[g]
In[]:=
g[1]=1;g[n_]:=g[n]=g[n-1]+Mod[g[n-1],n]
In[]:=
​​ListStepPlotDifferences[Table[g[n],{n,500}]],PlotRange->All,PlotStyle
,Frame->True,AspectRatio->14
Out[]=
In[]:=
​​ListPlotDifferences[Table[g[n],{n,500}]],PlotRange->All,PlotStyle
,Frame->True,AspectRatio->14
Out[]=
In[]:=
Last[Differences[Table[g[n],{n,1000}]]]
Out[]=
97
In[]:=
Take[Differences[Table[g[n],{n,1000}]],-30]
Out[]=
{97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97}
In[]:=
Differences[Table[g[n],{n,50}]]
Out[]=
{1,2,0,4,2,3,5,0,8,4,6,10,4,5,7,11,1,17,11,18,10,15,1,21,11,16,26,17,27,16,24,7,5,1,29,13,17,25,1,33,15,20,30,5,45,33,7,2,42}
In[]:=
g[396]
In[]:=
Table[38606+97(n-396),{n,396,410}]
Out[]=
{38606,38703,38800,38897,38994,39091,39188,39285,39382,39479,39576,39673,39770,39867,39964}
In[]:=
Table[g[n],{n,396,410}]
Out[]=
{38606,38703,38800,38897,38994,39091,39188,39285,39382,39479,39576,39673,39770,39867,39964}
In[]:=
Position[Differences[Table[g[n],{n,1000}]],97]
In[]:=
Clear[g]
In[]:=
g[n_]:=g[n]=If[n<=1,1,g[n-1]+Mod[g[n-2],n]]
In[]:=
​​ListStepPlotDifferences[Table[g[n],{n,5000}]],PlotRange->All,PlotStyle
,Frame->True,AspectRatio->14
Out[]=