OFFSET
1,7
COMMENTS
Substrings may start with a 0.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
The distinct substrings that occur multiple times in decimal 10 = binary 1010 are 0,1 and 10. So a(10)=3.
MATHEMATICA
Table[With[{d = IntegerDigits[n, 2]}, Count[Split@ Sort@ Apply[Join, Table[Partition[d, k, 1], {k, Length@ d}]], _?(Length@ # > 1 &)]], {n, 105}] (* Michael De Vlieger, Sep 22 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 24 2008
EXTENSIONS
Extended by Ray Chandler, Jun 25 2009
STATUS
approved