OFFSET
0,8
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..8192
EXAMPLE
a(91) = 11 because 91 = (1011)011_2 = 101(1011)_2 and 11 = 1011_2.
a(84) = 0 because 84 = 1010100_2, only the empty bitstring is a proper prefix and suffix.
MAPLE
a:= proc(n) local m; m:=n;
while m>1 do m:= iquo(m, 2);
if m=irem(n, 2^(1+ilog2(m))) then return m fi
od; 0
end:
seq(a(n), n=0..100);
CROSSREFS
KEYWORD
AUTHOR
Alois P. Heinz, May 24 2014
STATUS
approved