A104910 -id:A104910 - cp's OEIS frontend

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

Zak Seidov, Mar 29 2005

nonn

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

Cf. A104803, A104909, A104910.

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

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 *)

@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

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

A104909 a(n) = A104908(n) - 10*A104863(n).

Original entry on oeis.org

0, 0, 6, 5, 7, 11, 15, 24, 36, 51, 70, 93, 125, 163, 214, 274, 348, 445, 570, 728, 926, 1181, 1505, 1918, 2440, 3108, 3954, 5035, 6403, 8152, 10366, 13196, 16788, 21357, 27172, 34562, 43969, 55928, 71150, 90509, 115128, 146446, 186287, 236964, 301424, 383419

Offset: 1

Zak Seidov, Mar 29 2005

nonn

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

Cf. A104803, A104908, A104910.

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

Terms a(33) onward added by G. C. Greubel, Jun 27 2021

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

Sage

Formula