OFFSET
1,3
COMMENTS
Substrings may start with a 0.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..16384
EXAMPLE
0,0,1,1,10,10 each occur multiple times in binary 1010 = decimal 10. So a(10) = 6.
MATHEMATICA
Array[Function[d, Total@ Select[Tally@ Apply[Join, Map[Partition[d, #, 1] &, Range[Length@ d - 1]]], Last@ # > 1 &][[All, -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