login
A227745
Nonnegative integers whose squares occur in A173318.
3
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
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 25 2013
STATUS
approved