|
%I #2 Mar 31 2012 10:22:05
%S 3,1,13,2,4,4,4,2,78,3,9,6,9,3,18,3,21,9,6,6,15,6,6,9,21,3,18,3,9,6,9,
%T 3,662,4,16,8,16,4,52,4,36,12,12,8,48,8,12,12,36,4,52,4,16,8,16,4,108,
%U 4,16,8,16,4,152,4,56,16,8,12,24,8,32,16,32,8,28,4,36,12,12,8,84,4,36,12
%N First differences of variant of permutational numbers A134750 .
%t k = {}; a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[1 + w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 6}]; Do[AppendTo[k, a[[n + 1]] - a[[n]]], {n, 1, Length[a] - 1}]; k
%Y Cf. A134640, A134641, A134750, A134766, A134767.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 10 2007
|
