OFFSET
0,5
COMMENTS
EXAMPLE
Triangle begins
0 0
1 1
2 2
4 5
8 11 12
16 24 27 28
32 51 60 63 64
MATHEMATICA
T[n_, m_] := Length[ Select[ StringPosition[ #, ToString[(10^m - 1)/9]] & /@ Table[ ToString[ FromDigits[ IntegerDigits[i, 2]]], {i, 2^n, 2^(n + 1) - 1}], # != {} &]]; Join[{0, 0, 1, 1, 2}, Flatten[ Table[ T[n + i, i], {n, 0, 9}, {i, n + 1}]]]
CROSSREFS
KEYWORD
base,nonn,tabf
AUTHOR
Robert G. Wilson v, Jun 28 2005
EXTENSIONS
New definition from R. J. Mathar, Nov 27 2007
STATUS
approved
