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,3

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A173318, A227744, A227743.

Sequence in context: A370548 A302843 A037321 * A255567 A039565 A032805

Adjacent sequences: A227742 A227743 A227744 * A227746 A227747 A227748

Keyword

nonn

Author

Antti Karttunen, Jul 25 2013

Status

approved