A104908 a(n) = floor(sqrt(a(n-1)^2 + a(n-2)^2)), a(1)=100, a(2)=300.

100, 300, 316, 435, 537, 691, 875, 1114, 1416, 1801, 2290, 2913, 3705, 4713, 5994, 7624, 9698, 12335, 15690, 19958, 25386, 32291, 41075, 52248, 66460, 84538, 107534, 136785, 173993, 221322, 281526, 358106

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = floor(sqrt(a(n-1)^2 + a(n-2)^2)) with a(1) = 100, a(2) = 300.

Mathematica

a[n_]:= a[n]= If[n<3, 100*(2*n-1), Floor[Sqrt[a[n-1]^2 + a[n-2]^2]] ];
Table[a[n], {n, 40}] (* G. C. Greubel, Jun 27 2021 *)

Prog

(Magma)
A104908:= func< n| n lt 3 select 100*(2*n-1) else Floor(Sqrt(Self(n-1)^2 +Self(n-2)^2)) >;
[A104908(n): n in [1..40]]; // G. C. Greubel, Jun 27 2021
(Sage)
@CachedFunction
def a(n): return 100*(2*n-1) if (n<3) else floor(sqrt(a(n-1)^2 + a(n-2)^2))
[a(n) for n in (1..40)] # G. C. Greubel, Jun 27 2021

Crossrefs

Cf. A104803, A104909, A104910.

Sequence in context: A116145 A248550 A261276 * A109633 A124437 A349181

Adjacent sequences: A104905 A104906 A104907 * A104909 A104910 A104911

Keyword

nonn

Author

Zak Seidov, Mar 29 2005

Status

approved