|
%I #12 Jul 02 2020 15:27:39
%S 10,12,14,16,18,21,23,25,27,29,30,32,34,36,38,41,43,45,47,49,50,52,54,
%T 56,58,61,63,65,67,69,70,72,74,76,78,81,83,85,87,89,90,92,94,96,98,
%U 102,103,104,105,106,107,108,109,120,123,124,125,126,127,128,129,130,132,134,136
%N Positive numbers that contain both odd and even digits, with no digit repeated.
%C Unlike A318700, where digits can be repeated, this sequence is finite; last term is 9876543210.
%e 49 and 50 are in the sequence but 19 and 20 are not.
%t boeQ[n_]:=Max[DigitCount[n]]==1&&IntegerLength[n]>Count[ IntegerDigits[ n],_?EvenQ]>0; Select[Range[150],boeQ] (* _Harvey P. Dale_, Jul 02 2020 *)
%o (PARI) isok(n) = my(d=digits(n)); (#d == #Set(d)) && #select(x->(x%2), d) && #select(x->!(x%2), d); \\ _Michel Marcus_, Aug 07 2019
%Y Cf. A318700, A010784.
%K nonn,base,fini
%O 1,1
%A _Enrique Navarrete_, Aug 06 2019
|
