OFFSET
1,2
COMMENTS
Substrings may start with a 0.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..16384
EXAMPLE
In (decimal 10 =) binary 1010: 01, 101, 010, 1010 each occur exactly once. So a(10) = 4.
MATHEMATICA
Array[Function[d, Count[Tally@ Apply[Join, Map[Partition[d, #, 1] &, Range[Length@ d]]], _?(Last@ # == 1 &)]]@ IntegerDigits[#, 2] &, 83] (* Michael De Vlieger, Oct 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 24 2008
EXTENSIONS
Extended by Ray Chandler, Jun 25 2009
STATUS
approved