login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Squares that occur in A173318.
4

%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.