login
Numbers where the digits are alternatively even and odd and no digit is 0.
0

%I #8 Oct 12 2019 11:49:18

%S 1,2,3,4,5,6,7,8,9,12,14,16,18,21,23,25,27,29,32,34,36,38,41,43,45,47,

%T 49,52,54,56,58,61,63,65,67,69,72,74,76,78,81,83,85,87,89,92,94,96,98,

%U 121,123,125,127,129,141,143,145,147,149,161,163,165,167,169,181,183

%N Numbers where the digits are alternatively even and odd and no digit is 0.

%e As an example: 236721 because 2 is even, 3 is odd, 6 is even, 7 is odd, 2 is even and 1 is odd. Again: 58 (5 odd and 8 even) is in the sequence but not 59 (both are odd).

%t Select[Range[300], Length[Split[Mod[ #, 2] & /@ (id = IntegerDigits[ # ])]] == Length[id] && Times @@ id > 0 &] (* _Ray Chandler_, Nov 01 2005 *)

%K easy,nonn,base

%O 0,2

%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Oct 27 2005

%E Extended by _Ray Chandler_, Nov 01 2005