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 A201917 #14 Oct 11 2013 19:25:50 %S A201917 0,2085,2325,5253,6141,6293,7728,10013,11960,12920,14637,16940,17112, %T A201917 18737,21648,21948,23541,24633,26588,27716,31620,33012,34937,35145, %U A201917 38012,40641,42716,44268,47633,49848,52785,54237,56420,56840,60605,63828,67541,70448 %N A201917 Nonnegative values x of solutions (x, y) to the Diophantine equation x^2 + (x+84847)^2 = y^2. %C A201917 Note that 84847 = 7 * 17 * 23 * 31, the first four primes in A058529. %H A201917 Vincenzo Librandi and T. D. Noe, <a href="/A201917/b201917.txt">Table of n, a(n) for n = 1..1000</a> (first 159 terms from Vincenzo Librandi) %F A201917 a(n) = a(n-1) + 6*a(n-81) - 6*a(n-82) - a(n-162) + a(n-163), where the 163 initial terms can be computed using the Mathematica program. The initial terms begin with 0 and end with 1696940. %t A201917 d = 84847; t = Select[Range[0,68000], IntegerQ[Sqrt[#^2 + (#+d)^2]] &] %Y A201917 Cf. A201916 (has list of all such sequences). %K A201917 nonn %O A201917 1,2 %A A201917 _T. D. Noe_, Feb 09 2012