login
A134643
Odd permutational numbers A134640.
6
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 05 2007
STATUS
approved