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

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, 49, 52, 54, 56, 58, 61, 63, 65, 67, 69, 72, 74, 76, 78, 81, 83, 85, 87, 89, 92, 94, 96, 98, 121, 123, 125, 127, 129, 141, 143, 145, 147, 149, 161, 163, 165, 167, 169, 181, 183

Offset

0,2

Links

Table of n, a(n) for n=0..65.

Example

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

Mathematica

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

Crossrefs

Sequence in context: A238985 A337230 A226900 * A324022 A283248 A280595

Adjacent sequences: A111225 A111226 A111227 * A111229 A111230 A111231

Keyword

easy,nonn,base

Author

Paolo P. Lava and Giorgio Balzarotti, Oct 27 2005

Extensions

Extended by Ray Chandler, Nov 01 2005

Status

approved