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

Author

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

Keywords

• nonn

Links

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

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

Programs

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 *)

Scheme

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

Formula

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