A227745 - OEIS

%I #9 Nov 20 2022 11:14:01

%S 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 61,65,72,73,79,85,91,92,93,98,100,104,110,135,136,148,155,156,157,

%U 162,170,177,178,190,195,200,206,207,208,209,213,214,226,228,247,248

%N Nonnegative integers whose squares occur in A173318.

%H Antti Karttunen, <a href="/A227745/b227745.txt">Table of n, a(n) for n = 1..937</a>

%F a(n) = sqrt(A227744(n)).

%t Select[Sqrt[#]&/@Accumulate[Join[{0},Table[Length[Split[IntegerDigits[n,2]]],{n,10000}]]],IntegerQ] (* _Harvey P. Dale_, Nov 20 2022 *)

%o (Scheme) (define (A227745 n) (sqrt (A227744 n)))

%Y Cf. A173318, A227744, A227743.

%K nonn

%O 1,3

%A _Antti Karttunen_, Jul 25 2013