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 A098365 #6 Nov 21 2013 12:48:22
%S A098365 17,34,68,85,136,153,170,221,272,289,306,340,425,442,493,544,578,612,
%T A098365 629,680,697,765,833,850,884,901,986,1037,1088,1105,1156,1224,1241,
%U A098365 1258,1360,1377,1394,1445,1513,1530,1649,1666,1700,1717,1768
%N A098365 Sums of two squares and divisible by 17.
%e A098365 Sums not divisible by 17 are indicated by asterisks:
%e A098365 ....|...1....4....9...16....25....36....49....64....81...100...121
%e A098365 ------------------------------------------------------------------
%e A098365 1...|...*....*....*...17.....*.....*.....*.....*.....*.....*.....*
%e A098365 4...|...*....*....*....*.....*.....*.....*....68....85.....*.....*
%e A098365 9...|...*....*....*....*....34.....*.....*.....*.....*.....*.....*
%e A098365 16..|..17....*....*....*.....*.....*.....*.....*.....*.....*.....*
%e A098365 25..|...*....*...34....*.....*.....*.....*.....*.....*.....*.....*
%e A098365 36..|...*....*....*....*.....*.....*....85.....*.....*...136.....*
%e A098365 49..|...*....*....*....*.....*....85.....*.....*.....*.....*...170
%e A098365 64..|...*...68....*....*.....*.....*.....*.....*.....*.....*.....*
%e A098365 81..|...*...85....*....*.....*.....*.....*.....*.....*.....*.....*
%e A098365 100.|...*....*....*....*.....*...136.....*.....*.....*.....*...221
%e A098365 121.|...*....*....*....*.....*.....*...170.....*.....*...221.....*
%t A098365 ssq[upto_]:=Module[{max=Floor[Sqrt[upto]],seq},seq=Select[Union[ Total/@Tuples[ Range[max]^2,{2}]],Divisible[#,17]&];Select[seq,#<=upto&]]; ssq[1800] (* _Harvey P. Dale_, Mar 24 2011 *)
%K A098365 nonn
%O A098365 1,1
%A A098365 Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Oct 26 2004