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 A227744 #21 Jul 09 2025 04:37:15
%S A227744 0,1,4,9,144,169,256,289,324,361,400,576,625,784,841,900,1024,1156,
%T A227744 1225,1521,1681,2116,2304,2401,3721,4225,5184,5329,6241,7225,8281,
%U A227744 8464,8649,9604,10000,10816,12100,18225,18496,21904,24025,24336,24649,26244,28900,31329
%N A227744 Squares that occur in A173318.
%H A227744 Antti Karttunen and Giovanni Resta, <a href="/A227744/b227744.txt">Table of n, a(n) for n = 1..1000</a> (first 937 terms from Antti Karttunen)
%F A227744 a(n) = A173318(A227743(n)).
%t A227744 seq = {0}; n = 0; s = 0; While[Length[seq] < 100,
%t A227744 s += Length[Length /@ Split[IntegerDigits[++n, 2]]]; If[IntegerQ@ Sqrt@ s, AppendTo[seq, s]]]; seq (* _Giovanni Resta_, Jul 27 2013 *)
%o A227744 (Scheme) (define (A227744 n) (A173318 (A227743 n)))
%Y A227744 Cf. A227745 (gives the square roots of these terms).
%Y A227744 All values A096033(n)*(2^(A096033(n)-1)) occur here. - _Antti Karttunen_, Jul 29 2013
%K A227744 nonn
%O A227744 1,3
%A A227744 _Antti Karttunen_, Jul 25 2013, proposed by _Jonathan Vos Post_ in Comments section of A173318