OFFSET
0,1
EXAMPLE
2, 5/2, 49/20, 4801/1960, 46099201/18819920, ...
MAPLE
N:=6;
s:=[floor(sqrt(N))];
M:=8;
for n from 1 to M do
x:=s[n];
h:=(N-x^2)/(2*x);
s:=[op(s), x+h]; od:
lprint(s);
s1:=map(numer, s);
s2:=map(denom, s);
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane, Jun 18 2014
STATUS
approved