A134644 - OEIS

%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