A227745 Nonnegative integers whose squares occur in A173318.

0, 1, 2, 3, 12, 13, 16, 17, 18, 19, 20, 24, 25, 28, 29, 30, 32, 34, 35, 39, 41, 46, 48, 49, 61, 65, 72, 73, 79, 85, 91, 92, 93, 98, 100, 104, 110, 135, 136, 148, 155, 156, 157, 162, 170, 177, 178, 190, 195, 200, 206, 207, 208, 209, 213, 214, 226, 228, 247, 248

Offset: 1

Author

Antti Karttunen, Jul 25 2013

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..937

Crossrefs

Cf. A173318, A227744, A227743.

Programs

Mathematica

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

Scheme

(define (A227745 n) (sqrt (A227744 n)))

Formula

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