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
Keywords
Programs
-
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 *)
Extensions
More terms from Robert G. Wilson v, Mar 28 2005