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 A101135 #23 Aug 16 2017 22:41:48
%S A101135 1,2,3,4,9,23,37,51,65,79,93,107,121,256,647,1038,1429,1820,2211,2602,
%T A101135 2993,3384,3775,4166,4557,4948,5339,5730,6121,6512,6903,7294,7685,
%U A101135 8076,8467,8858,9249,9640,10031,10422,10813,11204,11595,11986,12377,12768
%N A101135 a(1)=1. a(n) = a(n-1) + sum of the squares which are among the first (n-1) terms of the sequence.
%H A101135 Colin Barker, <a href="/A101135/b101135.txt">Table of n, a(n) for n = 1..1000</a>
%H A101135 <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>.
%t A101135 Block[{a = {1}}, Do[AppendTo[a, a[[n - 1]] + Total@ Select[a, IntegerQ@ Sqrt@ # &]], {n, 2, 46}]; a] (* _Michael De Vlieger_, Aug 16 2017 *)
%o A101135 (PARI) vector(100, n, if(n==1, a_n_1=sum_=1, a_n_1+=sum_; if(ispolygonal(a_n_1, 4), sum_+=a_n_1)); a_n_1) \\ _Colin Barker_, Feb 20 2015
%Y A101135 Cf. A097602.
%Y A101135 Cf. A131093.
%K A101135 nonn
%O A101135 1,2
%A A101135 _Leroy Quet_, Jun 07 2007
%E A101135 More terms from _Reinhard Zumkeller_, Jun 14 2007