OFFSET
1,3
COMMENTS
Negative numbers occur at n=!k = A007489(k) and {k=3,4,5,...}
MATHEMATICA
a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 5}]; d = {}; Do[AppendTo[d, a[[n + 1]] - a[[n]]], {n, 1, Length[a] - 1}] ; d (*Artur Jasinski*)
Differences[Flatten[Table[FromDigits[#, n]&/@Permutations[Range[0, n-1]], {n, 5}]]] (* Harvey P. Dale, Dec 09 2014 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Artur Jasinski, Nov 08 2007
STATUS
approved