A104910 a(n) = A104908(n) - 100*A104803(n).

0, 0, 16, 35, 37, 91, 175, 214, 316, 401, 590, 713, 1005, 1313, 1694, 2224, 2798, 3635, 4590, 5858, 7486, 9591, 12175, 15548, 19760, 25238, 32134, 40885, 52093, 66222, 84326, 107306

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A104803, A104908, A104909.

Sequence in context: A228800 A230943 A070589 * A161441 A190741 A294073

Adjacent sequences: A104907 A104908 A104909 * A104911 A104912 A104913

Keyword

nonn

Author

Zak Seidov, Mar 29 2005

Status

approved