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
Examples
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; ...
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..11475 (rows 0 <= n <= 150, flattened)
Programs
-
Mathematica
Array[Append[ConstantArray[1, # - 1], #] + 2^Range[# - 1, 0, -1] - 1 &, 12] // Flatten (* Michael De Vlieger, Aug 19 2021 *)
Extensions
More terms from Jinyuan Wang, Aug 19 2021