A134643 Odd permutational numbers A134640.

1, 5, 7, 11, 15, 19, 21, 27, 39, 45, 57, 75, 99, 135, 141, 147, 177, 201, 225, 1865, 1895, 1905, 1935, 2045, 2105, 2255, 2265, 2285, 2355, 2475, 2535, 2945, 2975, 2985, 3015, 3305, 3395, 3415, 3445, 3515, 3525, 3575, 3595, 3645, 3655, 3735, 3805, 3825, 3835

Offset

1,2

Links

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

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*)
Select[Flatten[Table[FromDigits[#, n]&/@Permutations[Range[0, n-1]], {n, 6}]], OddQ] (* Harvey P. Dale, Jul 05 2026 *)

Crossrefs

Cf. A134640, A134641, A134642, A134644.

Sequence in context: A355013 A029624 A075317 * A039001 A387271 A023741

Adjacent sequences: A134640 A134641 A134642 * A134644 A134645 A134646

Keyword

nonn,changed

Author

Artur Jasinski, Nov 05 2007

Status

approved