OFFSET
1,3
LINKS
Antti Karttunen and Giovanni Resta, Table of n, a(n) for n = 1..1000 (first 937 terms from Antti Karttunen)
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved