After generating the numbers I can not if not only plot it in this way but there are interesting numbers coming out of the equation, can someone find me a plot , a nice plot for it? It comes about a nice plot little dots of a progression of very high numbers.
a=RandomInteger[20,{40}]
For t[n=0->n^y=1/y->n=a;n==(y)^x/n+(1);y==n*x^n,n<x,n++,x==n+n*-Sqrt[n^Sqrt[n]]
Do[y=n*x^n,{n,x},n];[x=n+n*-Sqrt[n^n
Sqrt[n]],n]If -1<y>1 -> y=n *n-1+n/x While Print[x=y]]
d=x/a
Table[x/a,{x,40}]
ListPlot[x]
