cp's OEIS Frontend

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.

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.

This page as a plain text file.
%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