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,2

Comments

Odd permutational numbers see A134643

Links

Table of n, a(n) for n=1..53.

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

Crossrefs

Cf. A134640, A134641, A134642, A134643.

Sequence in context: A285220 A078208 A105403 * A244379 A189100 A085637

Adjacent sequences: A134641 A134642 A134643 * A134645 A134646 A134647

Keyword

nonn

Author

Artur Jasinski, Nov 05 2007

Status

approved