cp's OEIS Frontend

A174675 Sequence A154696 adjusted to leading one:t(n,m)=A154696(n,m)-A154696(n,0)+1.

%I A174675 #4 Jun 02 2025 02:45:07
%S A174675 1,1,1,1,60,1,1,656,656,1,1,5832,16464,5832,1,1,49496,302486,302486,
%T A174675 49496,1,1,419412,4933332,10171944,4933332,419412,1,1,3593036,
%U A174675 76425506,280498526,280498526,76425506,3593036,1,1,31167600,1157982288
%N A174675 Sequence A154696 adjusted to leading one:t(n,m)=A154696(n,m)-A154696(n,0)+1.
%C A174675 Row sums are:
%C A174675 1, 2, 62, 1314, 28130, 703966, 20877434, 721034138, 28453293026,
%C A174675 1263142713270, 62305874244266,...
%F A174675 t(n,m)=A154696(n,m)-A154696(n,0)+1
%e A174675 {1},
%e A174675 {1, 1},
%e A174675 {1, 60, 1},
%e A174675 {1, 656, 656, 1},
%e A174675 {1, 5832, 16464, 5832, 1},
%e A174675 {1, 49496, 302486, 302486, 49496, 1},
%e A174675 {1, 419412, 4933332, 10171944, 4933332, 419412, 1},
%e A174675 {1, 3593036, 76425506, 280498526, 280498526, 76425506, 3593036, 1},
%e A174675 {1, 31167600, 1157982288, 6978681888, 12117629472, 6978681888, 1157982288, 31167600, 1},
%e A174675 {1, 273237776, 17387745806, 164112248126, 449798124926, 449798124926, 164112248126, 17387745806, 273237776, 1},
%e A174675 {1, 2414712204, 260247533196, 3735760480536, 15279843395064, 23749342002264, 15279843395064, 3735760480536, 260247533196, 2414712204, 1}
%t A174675 Clear[t, p, q, n, m, a];
%t A174675 p[x_, n_] = 2^n*(1 - x)^(n + 1)*LerchPhi[x, -n, 1/2];
%t A174675 a = Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
%t A174675 p = 2; q = 3;
%t A174675 t[n_, m_] := (p^(n - m)*q^m + p^m*q^(n - m))*a[[n + 1]][[m + 1]];
%t A174675 Table[Table[t[n, m] - t[n, 0] + 1, {m, 0, n}], {n, 0, 10}];
%t A174675 Flatten[%]
%Y A174675 A154690, A154692, A154693, A154694, A154695, A154696
%K A174675 nonn,tabl,uned
%O A174675 0,5
%A A174675 _Roger L. Bagula_, Mar 26 2010