A134644 Even permutational numbers A134640.

0, 2, 30, 54, 78, 108, 114, 120, 156, 180, 198, 210, 216, 228, 194, 198, 214, 222, 238, 242, 294, 298, 334, 346, 358, 366, 414, 422, 434, 446, 482, 486, 538, 542, 558, 566, 582, 586, 694, 698, 714, 722, 738, 742, 894, 898, 954, 970, 978, 990, 1014, 1022, 1054

Offset: 1

Author

Artur Jasinski, Nov 05 2007

Keywords

• nonn

Comments

Odd permutational numbers see A134643

Crossrefs

Cf. A134640, A134641, A134642, A134643.

Programs

Mathematica

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*)