This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A227745 #9 Nov 20 2022 11:14:01 %S A227745 0,1,2,3,12,13,16,17,18,19,20,24,25,28,29,30,32,34,35,39,41,46,48,49, %T A227745 61,65,72,73,79,85,91,92,93,98,100,104,110,135,136,148,155,156,157, %U A227745 162,170,177,178,190,195,200,206,207,208,209,213,214,226,228,247,248 %N A227745 Nonnegative integers whose squares occur in A173318. %H A227745 Antti Karttunen, <a href="/A227745/b227745.txt">Table of n, a(n) for n = 1..937</a> %F A227745 a(n) = sqrt(A227744(n)). %t A227745 Select[Sqrt[#]&/@Accumulate[Join[{0},Table[Length[Split[IntegerDigits[n,2]]],{n,10000}]]],IntegerQ] (* _Harvey P. Dale_, Nov 20 2022 *) %o A227745 (Scheme) (define (A227745 n) (sqrt (A227744 n))) %Y A227745 Cf. A173318, A227744, A227743. %K A227745 nonn %O A227745 1,3 %A A227745 _Antti Karttunen_, Jul 25 2013