This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A109434 #8 Mar 04 2018 21:16:41 %S A109434 0,0,1,1,2,2,4,5,8,11,12,16,24,27,28,32,51,60,63,64,64,107,131,140, %T A109434 143,144,128,222,282,307,316,319,320,256,457,601,666,691,700,703,704, %U A109434 512,935,1270,1432,1498,1523,1532,1535,1536,1024,1904,2665,3057,3224,3290 %N A109434 Irregular triangle read by rows: row n contains the numbers from 2^n up to (n+3)*2^(n-2), inclusive, read along their common subdiagonal of A109433. %C A109434 Evolution of 2^n into 2^(n-2)(n+3) as exhibited by A109433. %C A109434 The forward differences of the last row of the table approache A058396. %e A109434 Triangle begins %e A109434 0 0 %e A109434 1 1 %e A109434 2 2 %e A109434 4 5 %e A109434 8 11 12 %e A109434 16 24 27 28 %e A109434 32 51 60 63 64 %t A109434 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}]]] %Y A109434 Cf. A109433, A109436. %K A109434 base,nonn,tabf %O A109434 0,5 %A A109434 _Robert G. Wilson v_, Jun 28 2005 %E A109434 New definition from _R. J. Mathar_, Nov 27 2007