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

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,3

Links

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

Mathematica

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

Crossrefs

Cf. A104803, A104908, A104910.

Sequence in context: A182448 A179591 A063046 * A266077 A019167 A019324

Adjacent sequences: A104906 A104907 A104908 * A104910 A104911 A104912

Keyword

nonn

Author

Zak Seidov, Mar 29 2005

Extensions

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

Status

approved