%I A146750
%S A146750 60,292,292,1176,2396,1176,4272,15584,15584,4272,14580,88178,156120,
%T A146750 88178,14580,47804,455108,1310228,1310228,455108,47804
%N A146750 Coefficients pf the Pascal sequence minus the Eulerian numbers with first 
               and last columns subtracted: f(n)=2^n - 2n; q(x,n)= = (1 - x)^(n 
               + 1)*PolyLog[ -n, x]; p(x,n) = ((q(x, n)/x - (x + 1)^(n - 1))/x - 
               f[n] - f[n]*x^(n - 3))/x.
%C A146750 Row sums are:{60, 584, 4748, 39712, 361636, 3626280}. First row elements/
               column are: {60, 292, 1176, 4272, 14580, 47804}.
%F A146750 f(n)=2^n - 2n; q(x,n)= = (1 - x)^(n + 1)*PolyLog[ -n, x]; p(x,n) = ((q(x, 
               n)/x - (x + 1)^(n - 1))/x - f[n] - f[n]*x^(n - 3))/x; t(n,m)=Coefficients(p(x,
               n)).
%e A146750 {2}, {8, 8}, {22, 60, 22}, {52, 292, 292, 52}, {114, 1176, 2396, 1176, 
               114}, {240, 4272, 15584, 15584, 4272, 240}, {494, 14580, 88178, 156120, 
               88178, 14580, 494}, {1004, 47804, 455108, 1310228, 1310228, 455108, 
               47804, 1004}
%t A146750 f[n_] = 2^n - 2n; q[x_, n_] = (1 - x)^(n + 1)*PolyLog[ -n, x]; p[x_, 
               n_] = ((q[x, n]/x - (x + 1)^(n - 1))/x - f[n] - f[n]*x^(n - 3))/x 
               Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 5, 
               10}] Flatten[%]
%Y A146750 A005803
%Y A146750 Sequence in context: A100154 A100148 A100151 this_sequence A063497 A096363 
               A033591
%Y A146750 Adjacent sequences: A146747 A146748 A146749 this_sequence A146751 A146752 
               A146753
%K A146750 nonn
%O A146750 5,1
%A A146750 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 01 2008