|
%I #2 Mar 31 2012 10:22:05
%S 0,2,30,54,78,108,114,120,156,180,198,210,216,228,194,198,214,222,238,
%T 242,294,298,334,346,358,366,414,422,434,446,482,486,538,542,558,566,
%U 582,586,694,698,714,722,738,742,894,898,954,970,978,990,1014,1022,1054
%N Even permutational numbers A134640.
%C Odd permutational numbers see A134643
%t a = {}; b = {}; Do[AppendTo[b, n]; w =Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; If[OddQ[j], AppendTo[a, j]], {m, 1, Length[w]}], {n, 0, 10}]; a (*Artur Jasinski*)
%Y Cf. A134640, A134641, A134642, A134643.
%K nonn
%O 1,2
%A _Artur Jasinski_, Nov 05 2007
|
