login
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
-1, -3, -6, 34, 1065, 21915, 458276, 10381380, 257910255, 7023426505, 208771773342, 6739114316358, 235020287563061, 8812102803936999, 353674208662429320, 15133351271499561736, 687862113868372542939, 33104027829427142199381
OFFSET
1,2
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
KEYWORD
sign
AUTHOR
Artur Jasinski, Nov 08 2007, Nov 10 2007
STATUS
approved