A227744 Squares that occur in A173318.

0, 1, 4, 9, 144, 169, 256, 289, 324, 361, 400, 576, 625, 784, 841, 900, 1024, 1156, 1225, 1521, 1681, 2116, 2304, 2401, 3721, 4225, 5184, 5329, 6241, 7225, 8281, 8464, 8649, 9604, 10000, 10816, 12100, 18225, 18496, 21904, 24025, 24336, 24649, 26244, 28900, 31329

Offset

1,3

Links

Antti Karttunen and Giovanni Resta, Table of n, a(n) for n = 1..1000 (first 937 terms from Antti Karttunen)

Formula

a(n) = A173318(A227743(n)).

Mathematica

seq = {0}; n = 0; s = 0; While[Length[seq] < 100,
s += Length[Length /@ Split[IntegerDigits[++n, 2]]]; If[IntegerQ@ Sqrt@ s, AppendTo[seq, s]]]; seq (* Giovanni Resta, Jul 27 2013 *)

Prog

(Scheme) (define (A227744 n) (A173318 (A227743 n)))

Crossrefs

Cf. A227745 (gives the square roots of these terms).

All values A096033(n)*(2^(A096033(n)-1)) occur here. - Antti Karttunen, Jul 29 2013

Sequence in context: A324981 A128524 A027451 * A035127 A354078 A061267

Adjacent sequences: A227741 A227742 A227743 * A227745 A227746 A227747

Keyword

nonn

Author

Antti Karttunen, Jul 25 2013, proposed by Jonathan Vos Post in Comments section of A173318.

Status

approved