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 A094552 #5 Mar 30 2012 17:34:55
%S A094552 52,100,137,513,565,1247,8195,13041,18921,35344,40223,65918,68906,
%T A094552 121759,132720,213831,215221,235469,265654,506049,520654,585046,
%U A094552 598337,817454,993142,1339560,1579353,2331619,2843086,3594812
%N A094552 Numbers n such that there are integers a < b with a^2+(a+1)^2+...+(n-1)^2 = (n+1)^2+(n+2)^2+...+b^2.
%C A094552 A094550 generalized to squares. Note that equality is attained only for very long sums of squares.
%C A094552 a(31) > 4*10^6. [From _Donovan Johnson_, Apr 20 2010]
%e A094552 52 is in this sequence because 7^2+8^2+...+51^2 = 53^2+54^2+...+65^2.
%t A094552 lst={}; Do[i1=n-1; i2=n+1; s1=i1^2; s2=i2^2; While[i1>1 && s1!=s2, If[s1<s2, i1--; s1=s1+i1^2, i2++; s2=s2+i2^2]]; If[s1==s2, AppendTo[lst, n]], {n, 2, 100000}]; lst
%Y A094552 Cf. A094550, A094551, A094553.
%K A094552 nonn
%O A094552 1,1
%A A094552 _T. D. Noe_, May 10 2004
%E A094552 a(14)-a(30) from _Donovan Johnson_, Apr 20 2010