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.
%I A010340 #9 Mar 30 2012 16:45:33 %S A010340 0,2,3,0,4,6,7,5,0,6,9,8,10,10,7,0,8,12,17,10,14,18,13,9,0,10,15,18, %T A010340 16,12,25,13,14,16,11,0,12,18,16,15,16,14,29,20,20,34,19,13,0,14,21, %U A010340 26,22,26,20,16,22,20,27,18 %N A010340 Sum of terms in period of continued fraction for sqrt(n). %C A010340 The entry for a perfect square is 0. %H A010340 T. D. Noe, <a href="/A010340/b010340.txt">Table of n, a(n) for n=1..1000</a> %t A010340 f[n_] := If[ IntegerQ[ Sqrt[n]], 0, Apply[ Plus, Last[ ContinuedFraction[ Sqrt[n]]]]]; Table[ f[n], {n, 1, 100} ] %K A010340 nonn,nice %O A010340 1,2 %A A010340 _N. J. A. Sloane_, Walter Gilbert