A136791 Triangle read by rows: (2 * A011971) - A000012.
1, 1, 3, 3, 5, 9, 9, 13, 19, 29, 29, 39, 53, 73, 103, 103, 133, 173, 227, 301, 405, 405, 509, 643, 817, 1045, 1347, 1753, 1753, 2159, 2669, 3313, 4131, 5177, 6525, 8279, 8279, 100033, 12193, 14863, 18177, 22309, 27487, 34013, 42293, 42293, 50573, 60607, 72801, 87665, 105843, 128153, 155641, 189655, 231949
Offset: 0
Examples
First few rows of the triangle: 1; 1, 3; 3, 5, 9; 9, 13, 19, 29; 29, 39, 53, 73, 103; 103, 133, 173, 227, 301, 405; ...
Programs
-
Mathematica
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 *)
Comments