OFFSET
1,2
COMMENTS
Substrings may start with a 0.
The terms were calculated by R. J. Mathar.
Also: "complexité par facteurs" of n written in base 2. [Alexandre Wajnberg, Aug 22 2011]
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
Jean-Paul Delahaye, Le défi des faibles complexités, Pour la Science, 405 (2011), p. 82-87.
FORMULA
a(2^k - 1) = k - 1 for any k >= 0. - Rémy Sigrist, Jan 20 2021
EXAMPLE
The distinct substrings in binary representation (1010) of decimal 10 are 0,1,10,01,101,010,1010. So a(10) = 7.
MAPLE
a:= n-> (s-> nops({seq(seq(s[i..j], i=1..j),
j=1..length(s))}))(""||(convert(n, binary))):
seq(a(n), n=1..84); # Alois P. Heinz, Jan 20 2021
MATHEMATICA
Table[With[{d = IntegerDigits[n, 2]}, Length@ Union@ Apply[Join, Table[Partition[d, k, 1], {k, Length@ d}]]], {n, 77}] (* Michael De Vlieger, Sep 22 2017 *)
PROG
(Python)
def a(n):
b = bin(n)[2:]
m = len(b)
return len(set(b[i:j] for i in range(m) for j in range(i+1, m+1)))
print([a(n) for n in range(1, 78)]) # Michael S. Branicky, Jan 20 2021
CROSSREFS
KEYWORD
AUTHOR
Leroy Quet, Jun 24 2008
STATUS
approved