login

%I #10 Aug 26 2015 00:37:43

%S 1,3,5,7,9,13,15,17,21,29,31,33,37,45,61,63,65,69,77,93,125,127,129,

%T 133,141,157,189,253,255,257,261,269,285,317,381,509,511,513,517,525,

%U 541,573,637,765,1021,1023,1025,1029,1037,1053,1085,1149,1277,1533,2045

%N (A000012 * A131436) + (A131436 * A000012) - A000012.

%C Left column = 2^n - 1; right border = A036563, 2^(n+1) - 3: (1, 5, 13, 29, 61, 125, ...). Row sums = A131438: (1, 8, 29, 82, 207, 492, 1129, ...).

%F (A000012 * A131436) + (A131436 * A000012) - A000012; as infinite lower triangular matrices.

%e First few rows of the triangle are:

%e 1;

%e 3, 5;

%e 7, 9, 13;

%e 15, 17, 21, 29;

%e 31, 33, 37, 45, 61;

%e 63, 65, 69, 77, 93, 125;

%e ...

%p A000012 := proc(n,k)

%p 1 ;

%p end proc:

%p A131436 := proc(n,k)

%p if k = n then

%p 2^n-1 ;

%p else

%p 0;

%p end if;

%p end proc:

%p A131437 := proc(n,k)

%p add( A000012(n,i)*A131436(i,k) + A131436(n,i)*A000012(i,k),i=k..n) -1 ;

%p end proc:

%p seq(seq(A131437(n,k),k=1..n),n=1..15) ; # _R. J. Mathar_, Sep 24 2011

%Y Cf. A036563, A131436, A131438, A131439.

%K nonn,easy,tabl

%O 1,2

%A _Gary W. Adamson_, Jul 11 2007

%E Corrected by _R. J. Mathar_, Sep 24 2011