login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 59th year, we have over 358,000 sequences, and we’ve crossed 10,300 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A110502 Numbers n such that n in binary representation has a block of exactly a nontrivial square number of zeros. 2
16, 33, 48, 66, 67, 80, 97, 112, 132, 133, 134, 135, 144, 161, 176, 194, 195, 208, 225, 240, 264, 265, 266, 267, 268, 269, 270, 271, 272, 289, 304, 322, 323, 336, 353, 368, 388, 389, 390, 391, 400, 417, 432, 450, 451, 464, 481, 496, 512, 528, 529, 530, 531 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

a(n) is the index of zeros in the complement of the square analog of the Baum-Sweet sequence, which is b(n) = 1 if the binary representation of n contains no block of consecutive zeros of exactly a nontrivial square number length; otherwise b(n) = 0.

REFERENCES

J.-P. Allouche and J. Shallit, Automatic Sequences, Cambridge Univ. Press, 2003, p. 157.

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

J.-P. Allouche, Finite Automata and Arithmetic, Séminaire Lotharingien de Combinatoire, B30c (1993), 23 pp.

FORMULA

a(n) is in this sequence iff n (base 2) has a block (not a sub-block) of k^2 = A000290(k) consecutive zeros for k>1.

EXAMPLE

a(1) = 16 because 16 (base 2) = 10000, which has a block of 4 = 2^2 zeros.

a(2) = 33 because 33 (base 2) = 100001, which has a block of 4 zeros.

a(3) = 48 because 48 (base 2) = 110000, which has a block of 4 zeros.

a(49) = 512 because 512 (base 2) = 1000000000, with a block of 9 = 3^2 zeros.

Similarly, there are blocks of exactly 9 zeros in 1025, 1536, 2050, 2051, 3073, 3584, 7149, 8196, 8197, 8198, 8199.

65536, 131073, 196608, 262146 and 262147 are in this sequence because (base 2) they each have a block of 16 = 4^2 zeros.

33554432 has a block of 25 = 5^2 zeros.

MAPLE

filter:= proc(n) local L, nL, A, B;

L:= convert(n, base, 2);

nL:= nops(L);

A:= select(t -> L[t]=0 and (t=1 or L[t-1]=1), [$1..nL]);

B:= select(t -> L[t]=1 and L[t-1]=0, [$2..nL]);

ormap(t -> t>3 and issqr(t), B-A)

end proc:select(filter, [$1..1000]); # Robert Israel, Sep 01 2021

MATHEMATICA

Select[Range[531], Or @@ (First[ # ] == 0 && Length[ # ] > 1 && IntegerQ[Length[ # ]^(1/2)] &) /@ Split[IntegerDigits[ #, 2]] &] (* Ray Chandler, Sep 12 2005 *)

PROG

(Python)

from math import isqrt

from itertools import groupby

def is_nt_sqr(n): # is nontrivial square

return n > 1 and isqrt(n)**2 == n

def ok(n):

b = bin(n)[2:]

return any(k == '0' and is_nt_sqr(len(list(g))) for k, g in groupby(b))

print(list(filter(ok, range(532)))) # Michael S. Branicky, Sep 01 2021

CROSSREFS

Cf. A000290, A037011, A086747, A110471, A110472, A110474.

Sequence in context: A181452 A151981 A110472 * A095784 A041502 A041500

Adjacent sequences: A110499 A110500 A110501 * A110503 A110504 A110505

KEYWORD

base,easy,nonn

AUTHOR

Jonathan Vos Post, Sep 11 2005

EXTENSIONS

Corrected and extended by Ray Chandler, Sep 12 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 29 06:00 EST 2022. Contains 358422 sequences. (Running on oeis4.)