Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Sep 09 2017 19:34:52
%S 0,1,4,9,144,169,256,289,324,361,400,576,625,784,841,900,1024,1156,
%T 1225,1521,1681,2116,2304,2401,3721,4225,5184,5329,6241,7225,8281,
%U 8464,8649,9604,10000,10816,12100,18225,18496,21904,24025,24336,24649,26244,28900,31329
%N Squares that occur in A173318.
%H 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 a(n) = A173318(A227743(n)).
%t seq = {0}; n = 0; s = 0; While[Length[seq] < 100,
%t s += Length[Length /@ Split[IntegerDigits[++n, 2]]]; If[IntegerQ@ Sqrt@ s, AppendTo[seq, s]]]; seq (* _Giovanni Resta_, Jul 27 2013 *)
%o (Scheme) (define (A227744 n) (A173318 (A227743 n)))
%Y Cf. A227745 (gives the square roots of these terms).
%Y All values A096033(n)*(2^(A096033(n)-1)) occur here. - _Antti Karttunen_, Jul 29 2013
%K nonn
%O 1,3
%A _Antti Karttunen_, Jul 25 2013, proposed by _Jonathan Vos Post_ in Comments section of A173318.