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 A130052 #34 Apr 01 2020 01:38:56 %S A130052 25,365,841,1405,1730,2030,3281,3655,3740,4510,4705,4760,4900,5244, %T A130052 5434,5915,5929,7230,7574,8415,8464,9385,11055,11236,11900,12325, %U A130052 12524,14905,16745,17484,18879,19005,19044,19855,20449,20510,21790,22806,23681 %N A130052 Numbers that are the sum of one or more consecutive squares in more than one way. %H A130052 Paul Richards and David W. Wilson, <a href="/A130052/b130052.txt">Table of n, a(n) for n = 1..10000</a> (first 135 terms from Paul Richards) %e A130052 25 = 3^2 + 4^2 = 5^2. %e A130052 365 = 10^2 + 11^2 + 12^2 = 13^2 + 14^2. %o A130052 (PARI) ok(n) = {my(i=sqrtint(n), m=0); while(i>0&&m<2, my(a=i^2, j=i); while(j>0&&a<=n, if(a==n, m+=1); j-=1; a=a+j^2); i-=1); return(m>1)} %o A130052 {for(p=1, 24000, if(ok(p), print1(p,", ")))} \\ _Antonio Roldán_, Mar 09 2020 %Y A130052 Cf. A059255 (subsequence). %K A130052 nonn %O A130052 1,1 %A A130052 _Paul Richards_, May 03 2007 %E A130052 Extended by _Ray Chandler_, May 04 2007