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.

A136791 Triangle read by rows: (2 * A011971) - A000012.

This page as a plain text file.
%I A136791 #12 Apr 02 2022 10:41:09
%S A136791 1,1,3,3,5,9,9,13,19,29,29,39,53,73,103,103,133,173,227,301,405,405,
%T A136791 509,643,817,1045,1347,1753,1753,2159,2669,3313,4131,5177,6525,8279,
%U A136791 8279,100033,12193,14863,18177,22309,27487,34013,42293,42293,50573,60607,72801,87665,105843,128153,155641,189655,231949
%N A136791 Triangle read by rows: (2 * A011971) - A000012.
%C A136791 Right border = A060719: (1, 3, 9, 29, 103, ...).
%C A136791 Row sums = A136792.
%F A136791 (2 * A011971) - A000012, where A011971 = Aitken's triangle. Given Aitken's triangle, add 1 immediately after every addition operation. Rightmost term in (n-1)-th row becomes leftmost term in n-th row.
%e A136791 First few rows of the triangle:
%e A136791     1;
%e A136791     1,   3;
%e A136791     3,   5,   9;
%e A136791     9,  13,  19,  29;
%e A136791    29,  39,  53,  73, 103;
%e A136791   103, 133, 173, 227, 301, 405;
%e A136791   ...
%t A136791 Flatten[Table[2 Sum[Binomial[k, i]*BellB[n - k + i], {i, 0, k}] - 1, {n, 0, 9}, {k, 0, n}]] (* _Michael De Vlieger_, Apr 02 2022, after _Jean-François Alcover_ at A011971 *)
%Y A136791 Cf. A011971, A136792, A060719.
%K A136791 nonn,tabl
%O A136791 0,3
%A A136791 _Gary W. Adamson_, Jan 21 2008