cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

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