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

Author

Artur Jasinski, Nov 05 2007

Keywords

• nonn

Crossrefs

Cf. A134640, A134641, A134642, A134644.

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