A134748 - OEIS

%I #7 May 15 2013 22:28:29

%S -1,-3,-6,34,1065,21915,458276,10381380,257910255,7023426505,

%T 208771773342,6739114316358,235020287563061,8812102803936999,

%U 353674208662429320,15133351271499561736,687862113868372542939,33104027829427142199381

%N a(n)=largest permutational number of order n - smallest permutational number of order n+1 : A062813(n)-A134703(n+1) : A134640(!n)-A134640(!n+1).

%t a = {}; d = {}; e = {-1}; Do[b = {}; c = {}; Do[If[k > 0, AppendTo[b, k]]; AppendTo[c, n - k], {k, 0, n}] ; AppendTo[a, FromDigits[b, n + 1]]; AppendTo[d, FromDigits[c, n + 1]], {n, 1, 30}]; Do[AppendTo[e, d[[n]] - a[[n + 1]]], {n, 1, 29}]; e

%Y Cf. A062813, A134640, A134703.

%K sign

%O 1,2

%A _Artur Jasinski_, Nov 08 2007, Nov 10 2007