|
%I #2 Mar 30 2012 17:34:39
%S 1,1,1,1,20,1,1,130,130,1,1,744,1824,744,1,1,4234,20152,20152,4234,1,
%T 1,24484,210796,376704,210796,24484,1,1,143686,2183524,6233224,
%U 6233224,2183524,143686,1,1,851504,22549360,99411264,149600192,99411264
%N Sequence A154695 adjusted to leading one:t(n,m)=A154695(n,m)-A154695(n,0)+1
%C Row sums are:
%C 1, 2, 22, 262, 3314, 48774, 847266, 17120870, 395224450, 10263445126,
%C 296140564130,...
%F t(n,m)=A154695(n,m)-A154695(n,0)+1
%e {1},
%e {1, 1},
%e {1, 20, 1},
%e {1, 130, 130, 1},
%e {1, 744, 1824, 744, 1},
%e {1, 4234, 20152, 20152, 4234, 1},
%e {1, 24484, 210796, 376704, 210796, 24484, 1},
%e {1, 143686, 2183524, 6233224, 6233224, 2183524, 143686, 1},
%e {1, 851504, 22549360, 99411264, 149600192, 99411264, 22549360, 851504, 1},
%e {1, 5075122, 231836368, 1562973472, 3331837600, 3331837600, 1562973472, 231836368, 5075122, 1},
%e {1, 30344508, 2370195636, 24248921920, 72553861536, 97733916928, 72553861536, 24248921920, 2370195636, 30344508, 1}
%t Clear[t, p, q, n, m, a];
%t p[x_, n_] = 2^n*(1 - x)^(n + 1)*LerchPhi[x, -n, 1/2];
%t a = Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
%t p = 2; q = 1;
%t t[n_, m_] := (p^(n - m)*q^m + p^m*q^(n - m))*a[[n + 1]][[m + 1]];
%t Table[Table[t[n, m] - t[n, 0] + 1, {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%Y A154690, A154692, A154693, A154694, A154695
%K nonn,tabl,uned
%O 0,5
%A _Roger L. Bagula_, Mar 26 2010
|
