login
A227744
Squares that occur in A173318.
4
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 25 2013, proposed by Jonathan Vos Post in Comments section of A173318.
STATUS
approved