OFFSET
0,2
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);
PROG
(Magma) m:=9; f:=[n eq 1 select 2 else (Self(n-1)+6/Self(n-1))/2: n in [1..m]]; [Denominator(f[n]): n in [1..m]]; // Vincenzo Librandi, Jan 12 2016
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane, Jun 18 2014
STATUS
approved