A131817 a(n) = A051340(n) + A130321(n) - A000012(n).

1, 2, 2, 4, 2, 3, 8, 4, 2, 4, 16, 8, 4, 2, 5, 32, 16, 8, 4, 2, 6, 64, 32, 16, 8, 4, 2, 7, 128, 64, 32, 16, 8, 4, 2, 8, 256, 128, 64, 32, 16, 8, 4, 2, 9, 512, 256, 128, 64, 32, 16, 8, 4, 2, 10, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 11, 2048, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 12

Offset

0,2

Links

Michael De Vlieger, Table of n, a(n) for n = 0..11475 (rows 0 <= n <= 150, flattened)

Formula

A051340 + A130321 - A000012 as infinite lower triangular matrices.

Example

First few rows of the triangle:
   1;
   2,  2;
   4,  2,  3;
   8,  4,  2,  4;
  16,  8,  4,  2,  5;
  32, 16,  8,  4,  2,  6;
  64, 32, 16,  8,  4,  2,  7;
  ...

Mathematica

Array[Append[ConstantArray[1, # - 1], #] + 2^Range[# - 1, 0, -1] - 1 &, 12] // Flatten (* Michael De Vlieger, Aug 19 2021 *)

Crossrefs

Cf. A051340, A083706 (row sums), A130321.

Sequence in context: A130860 A161535 A138785 * A214430 A138232 A248913

Adjacent sequences: A131814 A131815 A131816 * A131818 A131819 A131820

Keyword

nonn,tabl

Author

Gary W. Adamson, Jul 18 2007

Extensions

More terms from Jinyuan Wang, Aug 19 2021

Status

approved