A134748 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).

-1, -3, -6, 34, 1065, 21915, 458276, 10381380, 257910255, 7023426505, 208771773342, 6739114316358, 235020287563061, 8812102803936999, 353674208662429320, 15133351271499561736, 687862113868372542939, 33104027829427142199381

Offset

1,2

Links

Table of n, a(n) for n=1..18.

Mathematica

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

Crossrefs

Cf. A062813, A134640, A134703.

Sequence in context: A203715 A249875 A308557 * A068904 A309774 A244296

Adjacent sequences: A134745 A134746 A134747 * A134749 A134750 A134751

Keyword

sign

Author

Artur Jasinski, Nov 08 2007, Nov 10 2007

Status

approved