A104805 "Ceiling of hypotenuses": a(n) = ceiling(sqrt(a(n-1)^2 + a(n-2)^2)), a(1)=1, a(2)=3.

1, 3, 4, 5, 7, 9, 12, 15, 20, 25, 33, 42, 54, 69, 88, 112, 143, 182, 232, 295, 376, 478, 609, 775, 986, 1255, 1597, 2032, 2585, 3289, 4184, 5322, 6770, 8612, 10955, 13935, 17726, 22548, 28682, 36484, 46409, 59033, 75092, 95519, 121502, 154553, 196595, 250073

Offset

1,2

Links

Table of n, a(n) for n=1..48.

Mathematica

a[n_] := a[n] = Ceiling[ Sqrt[ a[n - 1]^2 + a[n - 2]^2]]; a[1] = 1; a[2] = 3; Table[ a[n], {n, 48}] (* Robert G. Wilson v, Mar 28 2005 *)

Crossrefs

Cf. A104803, A104804.

Sequence in context: A010420 A035260 A035249 * A260996 A102822 A346986

Adjacent sequences: A104802 A104803 A104804 * A104806 A104807 A104808

Keyword

nonn

Author

Zak Seidov, Mar 26 2005

Extensions

More terms from Robert G. Wilson v, Mar 28 2005

Status

approved