Generating the points

Does anyone know any possible mathematical formula generating this sequence? Share thoughts - any ideas are appreciated. For now we have only 5 points for unique irreducible fractions:
In[]:=
seq={2,30,284,2870,28652}/2
Out[]=
{1,15,142,1435,14326}
but they seem follow nicely exponential law:
In[]:=
fit=Fit[Transpose[{Range[5],Log[seq]}],{1,x},x]
Out[]=
-2.20963+2.37005x
In[]:=
Exp@fit//Simplify
Out[]=
0.109741
2.37005x

In[]:=
Show[ListPlot[Log[seq],PlotMarkers->Red,PlotTheme->"Detailed"],Plot[fit,{x,0,5}]]
Out[]=