%I #6 Jun 28 2021 02:48:06
%S 0,0,16,35,37,91,175,214,316,401,590,713,1005,1313,1694,2224,2798,
%T 3635,4590,5858,7486,9591,12175,15548,19760,25238,32134,40885,52093,
%U 66222,84326,107306
%N a(n) = A104908(n) - 100*A104803(n).
%H G. C. Greubel, <a href="/A104910/b104910.txt">Table of n, a(n) for n = 1..1000</a>
%t A104803[n_]:= A104803[n]= If[n<3, (2*n-1), Floor[Sqrt[A104803[n-1]^2 +A104803[n- 2]^2]]];
%t A104908[n_]:= A104908[n]= If[n<3, 100*(2*n-1), Floor[Sqrt[A104908[n-1]^2 +A104908[n -2]^2]]];
%t A104910[n_]:= A104908[n] - 100*A104803[n];
%t Table[A104910[n], {n, 60}] (* _G. C. Greubel_, Jun 27 2021 *)
%Y Cf. A104803, A104908, A104909.
%K nonn
%O 1,3
%A _Zak Seidov_, Mar 29 2005
|